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ABSTRACT 


The use of color in the organization and analysis of the output of multifactor sta- 
tistical simulations is investigated with the computer package SIMTBED (A Simulation 
Test Bed). Updating of this system to the current technology of color line printers is 
performed. It is shown how color can be used to code some factors in a multifactor 
simulation, compacting the output and enhancing analysis. An application to the anal- 
ysis of the lag one Serial correlation of normal and non-normal time series using four 
estimators (moment, maximum likelihood, robust regression, and the Cressie estimator) 
is provided as a demonstration of the uses of SIMTBED in statistical simulations. These 
estimators are examuned for robustness and asymptotic bias, as well as relative behavior 
with various sample sizes. It is shown that for some time series the robust estimators 


of serial correlation are not acceptable due to bias and other considerations. 


ill 


THESIS DISCLAIMER 


The reader is cautioned that computer programs developed in this research may not 
have been exercised for all cases of interest. While every effort has been made, within 
the time available, to ensure that the programs are free of computational and logic er- 
rors, they cannot be considered validated. Any application of these programs without 


additional verification 1s at the risk of the user. 
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I. INTRODUCTION 


This thesis consists of two parts: the analysis and updating of an existing computer 
simulation package to include the use of color in output analysis, and an application 
using the simulation methods in the analysis of robust estimators of serial correlation for 
time series. The technology of computers, especially the personal computer (PC), and 
the ability of the academic (as well as the user) community to perform computer-assisted 
simulations is rapidly changing, and this work represents an effort to use more modern 
methods and equipment in computer simulations, such as color printers and the faster 
personal computers. This allows more compact output analysis of the results of multi- 
factor simulations, through the use of color to code some of the parameters of the sim- 
ulation experiment. Through the use of color, a direct graphic comparison of the 
behavior of different estimators in a statistical simulation can be made, enhancing the 
output analysis. 

The research community has provided several methods for assessing autocorrelation 
that warrant further research, and the application of this simulation package to some 
of these methods seems appropriate. Specifically, some autocorrelation estimators pur- 
ported to be robust are evaluated when applied to time series with various marginal 
distributions, including the Normal and other non-Normal distributions, and their be- 
havior is compared. These results should prove useful to any student or researcher in- 
terested in either performing statistical simulations, or the estimation of autocorrelation 
parameters, for example in the examination of oceanographic data, or positions of shells 
on successive firings of an artillery piece. Serial correlation is of interest in the study of 
learning phenomena, such as accuracy of a rifleman in subsequent shots at a target. It 
is also used to study the independence of the individual members of a sample, to support 
assumptions of independence. In these situations the estimator of serial correlation used 
mav be important. 

The remaining chapters of this thesis discuss multi-factor statistical simulations, the 
FORTRAN simulation package SIMTBED (SIMulation Test BED) and its updating, 
and application to the estimation of serial correlation. With the pace of technology and 
research today, there is alwavs a need for more effort to move existing systems into the 


current and future technology. As our abilities to conduct these types of experiments 


improve, so will our understanding of the theoretical processes involved, and their ap- 


plication to the real world through research. 


Il. MULTI-FACTOR STATISTICAL SIMULATIONS 


In their text on simulation methodology, Lewis and Orav [Ref. 1, p. I-2] describe a 
simulation as a controlled statistical sampling technique, and a controlled statistical ex- 
periment. This is to be contrasted with real-world statistical sampling, in which the 


Statistician has no control over the population being sampled. 


A. PURPOSE. 

The purpose of a statistical simulation is therefore to assess some property of a 
Statistical estimator of a parameter in an 1.1.d. sample or in a random process (time se- 
ries). These simulations are generally applied to situations where the processes being 
considered have no good analytical form to study. When there are multiple estimators, 
simulation can facilitate choice among them, given some criteria by which a comparison 


can be made. 


B. EXAMPLES. 


Examples of statistical simulations include: 


e A study of the Student’s t statistic applied to non-Normal random samples. Here, 
there is no good analytical result for the behavior of the statistic. A comparison 
can be made with the behavior of the t-statistic as applied to Normal samples. 


e A study of various trimmed means (say, 5%, 7%, 10%), and their behavior com- 
pared to the arithmetic mean, for different distributions and sample sizes. 


e A study of sampling, with replacement, from a generated population, and the study 
of the sampling distribution of a statistic (say, the median), for different distrib- 
utions. 


e Comparison of the Maximum Likelihood Estimator (MLE) with the Moment esti- 
mator for various statistics. 


e Large sample studies of the asymptotic behavior of some Statistic (1.e., higher mo- 
ments, like skewness or kurtosis). 


e A study to analyze the variability of some statistic, when there 1s no good analytical 
result (such as the variance of the coefficient of variation) for different distrib- 
utions. 

C. CONSIDERATIONS. 


In all of the examples and applications of statistical simulations the following consider- 


ations are implied: 


1. Factors. 

Several factors are involved in the simulation. These can be the different esti- 
mators under study, the type of distribution involved in the study, some parameter var- 
iation on the distribution, the sample sizes involved, or any combination of these. The 
simulation experiment is to be repeated for each of these factors, and the output must 
be analyzed in an organized manner to examine the effect of varying these factors. 

2. Replications. 

There is to be some repetition of the statistical simulation to assess variability 
information. Random processes are involved, and repetition is required to observe be- 
havior with any degree of assurance. Sometimes the amount of repetition required to 
gain an acceptable variability in the results is unknown at the start of the simulation. 

3. Resources. 

These experiments can be complex to conduct. Combined with the factors in- 
volved, a significant computing resource can be involved. A mainframe can provide 
computing power in terms of speed, but at a cost. Personal computers, while possessing 
much less speed, can accomplish similar tasks, with more time required, but the cost can 
be much less, especially considering the availability of the personal computer versus the 
mainframe. In any case, the user must often write some part of the routines that 
produce the simulation. This can include the driver routine, which generates the random 
process and calculates the values under study, or it could include the entire simulation, 
including the graphics and other output routines. The best approach 1s to have available 
some package which can take user driver routines and then aggregate the output from 
them into a compactly presented output, so the user can focus on the aspects of the 


simulation (1.e., the process and the results). This is the approach of SIMTBED. 


D. OUTPUT ANALYSIS. 

Consider the following example. We wish to study the behavior of four estimators 
of serial correlation (autocorrelation), specifically applying these estimators to samples 
from first order autoregressive processes whose marginal distribution is the standard 
Normal distribution, and with four other first order autoregressive processes with non- 
Normal marginal distributions. We wish to study, say, eight sample sizes, from 20 to 
5000, and we want to Know how these estimators behave when the true values of the 
serial correlation take values of -0.9, 0.9, and 0.0. Since we know the correlations of the 
random samples we generate, we can compare these estimators to each other, and also 


to the known values of the correlation. The number of simulations required to provide 


only one realization of our estimators for each consideration 1s clearly the product of the 
number of each of the factors, or 480. This would be an intractable process without 
some organized approach to perform some of these runs as a batch. Further, in order 
to assess the variability in these results we wish to repeat the entire overall simulation a 
number of times. Not only does this represent a significant computing requirement, but 
some type of compact organization of the output is required for analyses and compar- 
isons to be possible. 
I. Graphics. 

Graphical displays can portray a great deal of information clearly, quickly, and 
in a compact manner. We can use graphics and graphical symbols to combine the lo- 
cation and variation measures, like a boxplot, and we can plot related data close together 
for quick comparison. The repetitions performed to introduce stability (precision) into 
the simulation can be combined into the boxplot-type graph, with tables attached for 
reference. This represents only one way to approach output analysis, and the exact 
methods used depend on the simulations being conducted. For example, if we are 
comparing an estimator’s behavior under different distributions, we would like a graph- 
ical representation which depicts each distribution’s results together, so differences will 
be apparent. This graphical approach, combining several of the factors of the simulation 
in one plot, 1s the approach taken to output analysis with SIMTBED. 

2. Regression and Asymptotic Behavior. 

There are many Statistical estimators in the literature with claimed asymptotic 
behavior with respect to sample size. Indeed, Cramer proves that any central moment 
of a sample of any population is asymptotically normally distributed, and he gives the 
mean and variance as functions of n, the sample size [Ref. 2, p. 365]. If we are interested 
in demonstrating asymptotic performance (say, for different distributions), we would 
want the estimator plots arranged by sample size to show trends. Of interest might be 
the sample size at which the aymptotic normal behavior of our estimator is apparent, 
which might allow all types of analysis possible for normally distributed data (confidence 
intervals, etc.). More likely, though, we are interested in the value of our estimator, 
suitably unbiased, which 1s approached as the sample size gets very large. In this situ- 
ation, regression can be applied. Lewis and Orav present the results of the geometric 
expansion for the mean and variance of central moment estimators (the delta method), 
and further states that these results also apply well to estimators that are not functions 


of central moments [Ref. 1, p. VI-35]. In equation form, these results are: 
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where a’s, and b’s, are constants, m 1s the sample size, and @ is the value of the estimator. 
Notice in equation (2.1) that the first term is the asymptotic value of the estimator @ it- 
self. So, if we perform a regression using these equations and the appropriate powers 
of the sample size, we can attain a value and variance for the estimator as it behaves 
asymptotically. This regression is the type implemented in SIMTBED. With repetitions 
of our simulations we can observe the variability of the coefficients of the regression. 
Observe that more sample sizes in the simulation design allow an increased degree of 
regression, Where by degree we mean the number of terms of equations (2.1) and (2.2) 


used, which typically have to be truncated to, say, four or six terms. 


E. HUMAN FACTORS AND INFORMATION CODING. 

When referring to information coding, we mean that the original information has 
been converted to a new form, and displaved symbolically, as discussed in the human 
factors industry [Ref. 3, p. 50]. In our output analysis, there are two forms of informa- 
tion coding. 

1. Graphics. 

The measures of location and spread for the statistical estimator have been 
converted to a graphical representation, the widely used boxplot. This allows rapid 
comparison of different runs (estimators, sample sizes, etc.) based on location and 
spread. Tables are also used, for detailed reference, if needed. 

2. Simulation Factors. 

In the update to SIMTBED as part of this thesis, the different estimators will 
have their identitv coded by color, so that when plotted together, two estimators that 
otherwise have identical simulation factors (sample size, distribution, and parameters) 
will be distinguished by color for comparison. Further, as a consequence of the simu- 
lation processing, these estimator plots will also be coded by their position in the graph, 
which is not a good form of coding. Sanders and McCormick compare these coding 
dimensions (color and position) and others, and conclude that color is the best (in terms 
of correct responses), and position is the worst (configuration is the term used by these 


authors for position coding) [Ref. 3, p. 98]. Nonetheless, this makes it possible to use 


these comparisons on any personal computer with a dot matrix printer, which 
SIMTBED uses for output, as well as the newer color dot matrix printers. This direct 
comparison of estimators in a simulation is an addition to the capabilities of SIMTBED. 

The stage is now set to discuss the statistical simulation package, SIMTBED, 
as updated by this thesis, its capabilities, limitations, and method of use. Before doing 
this we note that the philosophy on the design of the original SIMTBED was to use line 
printer graphics for portability. This goal can still be achieved if color is included in the 
output graphics and the widely available and cheap dot-matrix printers are used for 
SIMTBED output. 


Il. SIMTBED. 


This chapter discusses the package SIMTBED, 1n currently available versions, and 
the enhanced version created in this thesis (version 13). We discuss the SIMTBED ap- 
proach to statistical simulation, the output organization it uses, and the updating to the 
use of color as a SIMTBED enhancement. For a detailed description of the details re- 
quired to actually run SIMTBED, see Appendix A. Appendix A 1s designed to function 
as a user's guide for this version of SIMTBED. 


A. DESCRIPTION. 

SIMTBED 1s a collection of FORTRAN subroutines that perform the detailed 
Output analysis for statistical simulations. The user writes a driver program that pro- 
vides the necessary parameters of the simulation, and calls the SIMTBED subroutine. 
The user also provides the routines that generate the random process and calculate the 
Statistics of interest. SIMTBED performs a sectioning of the sample sizes the user 
specifies and determines the number of calls required to each generating routine to 
produce the desired result. It then prepares all the plots and output statistics from the 
data supplied by the generating routines. In this way, the user focuses on the process 
involved in his simulation, and on the output he receives, and is relieved from the or- 
ganization and generation of the output itself. This present version (13) of SIMTBED 
is designed to run on the IBM PC/AT family of personal computers, when compiled by 
anv of the currently popular FORTRAN compilers. The update to older versions of 
SIMTBED that produced this version (13) includes the capability to produce combined 
plots of the user-supplied estimators, in color, and an increase in the number of estima- 
tors SIMTBED can process. The older versions could only process three estimators. 
The graphics used by SIMTBED, called line printer graphics, uses the dot matrix printer 


and its characters, in compressed-type mode, to produce the plots. 


B. HISTORY. 

SIMTBED originated with a mainframe version written by Lewis, Orav and Uribe 
in 1981. This was ported to and improved upon in a PC version in a Naval Postgraduate 
School Thesis by Hans-Walter Drueg [Ref: 4]. In this work, Drueg produced the first 
PC version of SIMTBED, with applications to statistics. His work was based on the 
regression methods of Lewis and Heidelberger [Ref. 5] and the graphical approach used 


by Linnebur in the program RAGE [Ref. 6]. Since then, numerous updates have been 
incorporated by the Naval Postgraduate School simulation community, most notably 
by L. Uribe, and P. A. W. Lewis. Updates to SIMTBED include: 

e Addition of percentile and quantile plots for each estimator. 

¢ Computation of Mean Squared Error (MSE), when known values are input. 


e Bivariate histograms to show relationships between pairs of estimators with respect 
to sample size. 


e Super-replications to provide precision/variability information on all the 
SIMTBED statistics. 


e <A restart capability for long simulations, allowing a simulation to be performed as 
a series of super-replications, with each series building on the ones before. 


e Most recently, the use of color printers to provide combined plots of estimators 
(the work of this thesis). 


e Even more recently, a mainframe version utilizing laser printer technology, with 
even more capability (restricted to mainframe use). 

Appendix D, the SIMTBED source listing, has comments at the beginning which 
also portray the historical development of the program. 

SIMTBED has been incorporated into the Advanced Statistical Package, a pub- 
lished software package from P. A. W. Lewis (as SMIBPC). The manual from that 
package has been used in courses in simulation at.the Naval Postgraduate School (Ref. 
TE 


C. THE APPROACH OF SIMTBED. 

SIMTBED views each estimator (represented by a generating subroutine passed to 
SIMTBED with all other parameters) as a separate simulation run, and performs all the 
analysis on each estimator in turn (see Figure 1.). The capability added with this thesis 
consists of the color combined plots at the end of the SIMTBED processing. (Refer to 
Appendix B for a discussion of the programming aspects of color printing with 
SIMTBED.) If combined color-coded plots of up to five estimators are requested at the 
completion of the simulation experiment, the data needed from each estimator’s simu- 
lation is kept until the end for preparation of the combined plots. Otherwise, each esti- 
mator is completely processed in sequence. Up to five estimators can be processed in 
one run of SIMTBED (each represented by a generating subroutine). This is an im- 
proved capability in that more estimators can be studied, and the results can be com- 


pared at the finish, graphically, in color. 
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1. Sectioning to Conduct Simulations. 
a. Major parameters description. 

In addition to routine parameters (number of estimators, subroutine names, 
etc.), SEMTBED must have information on the sample sizes that are to be used for the 
estimators, 1.e., the sample sizes for which the properties of the estimator are to be ex- 
amined. These are referred to as “sub-sample sizes,” because the “sample size” refers to 
the global sample size from which each of the sub-samples 1s sectioned. We use “N” to 
represent this global sample size, and “NE(*)” to represent the sub-sample sizes, since 
they are passed in an arrav (from | to 8 sub-samples are possible). Further, a number 
of replications of each sub-sample size may be performed, in order to observe the vari- 
abilitv in the regression performed on the values of the estimators (see Chapter 2, Sec- 
tion D.2). This is deno’2d by “M”. These are the three major parameters affecting the 
simulation. The global sample size N\ is a function of the available memory of the ma- 
chine being used. 

b. Performing a simulation by sectioning. 

Consider this example. Given a sample size, N, of 5000, a replication value, 
M, of 20, and a sub-sample size, NE(1), of 20, SIMTBED will proceed as follows. The 
sample space for the 5000 values of data from which the estimators can be computed 
will be divided up into groups of size 20, so there will be (5000/20) = 250 evaluations 
of the estimator, each based on a separate, independent sample of size 20. This will be 
repeated M times, so there will be 5000 evaluations of the estimator, based on a sample 
of size 20. This is the way SIMTBED sections to produce the necessary number of 
evaluations based on the desired sample size. Machine memory storage must be avail- 
able for (N x M)/NE(1) variables in an array. 

This process is independent of the estimator subroutine. For example, if 
Our eStimator were the coefficient of variation of an exponential(/) distribution, 
SIMTBED would call that routine 250 separate times, and pass a new sample size of 20 
from which to compute the estimate of coefficient of variation. The data generator 
routine would generate the random variables and compute the coefficient of variation. 
This process would repeat for each of the other (as many as eight total) sub-sample sizes, 
and if requested, a regression would be performed on the means of each of the sub- 
sample realizations of the estimator. This regression process is replicated M times to 
estimate the variability of the regression coefficients. See Chapter 2, Section D.2, and 


Appendix A for more on the regression performed by SIMTBED. 
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2. Super-Replications. 

As each estimator 1s processed it turn, it 1s possible to perform the entire sec- 
tioning process for that estimator a specified number of times. These are referred to as 
super-replications, and allow the experimenter to evaluate variability and precision in- 
formation about all of the results presented for one iteration of the simulation process. 
For example, one replication will yield a single value of the asymptotic expected value 
of the estimator being simulated (from Equation 2.1). The number of replications 
specified in the simulation allow estimating the spread of these coefficients of the re- 
gression, but still only one value is obtained. To obtain more realizations of this ex- 
pected value, super-replications can be performed, and then tests for normality (..e., 
quantile plots, etc.) can be performed for validity. These super-replications, being inde- 
pendent, should be normally distributed about the true estimator value, from the central 
limit theorem. SIMTBED performs these super-replications as specified by parameters 
when SIMTBED 1s called. All super-replications for one estimator are performed before 
the next estimator in the chain is processed. It 1s possible to obtain repeated output 
graphs for the first three of these super-replications, to check the simulation; thereafter, 
SIMTBED generates a summary table and optionally a normalized quantile plot (see 
section D), 

3. Combined Plots in Color. 

At the completion of simulation for all estimators, a plot of some of the infor- 
mation from each estimator in the chain that was processed can be generated. This 
amounts to plotting together some of the boxplots describing each estimator, with each 
a different color, aiding comparison of the behavior of the estimators relative to each 
other. While not a substitute for comparing tabulated values (such as mean squared 
errors, standard deviations, and means), this type of graphical comparison can provide 
meaningful information that could otherwise be hidden in the tabled values of the out- 
put. Analysis of the large volume of output produced in these types of simulations is 
thus aided by these types of graphical comparison, which can provide a wealth of infor- 
mation at a glance. 

4. Restart and Other File Operations. 

Due to the lack of good analytical form for the behavior of the estimators in 
these types of simulations, the amount of repetition (super-replications) required to get 
a specified degree of precision (with respect to asymptotic performance) or a low enough 
variance (say, in the mean value) may not be known until it is reached. Rather than 


keep repeating the simulation with larger and larger parameters, SIMITBED will use data 
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files to store the results of the super-replications, and subsequent super-replications can 
use the results from previous runs as though they had just been obtained. This allows 
the user to ‘build up’ his simulation until the values obtained have the needed precision, 
or until the required convergence/divergence or bias is seen. It may also be useful to 
have these results for processing by another package, or for record-keeping. SIMTBED 
can also perform this function with an output file. Refer to Appendix A for the actual 
use of these features. 
5. A Variance Reduction Technique. 

One popular technique that can be used to reduce the variability in the results 
of a statistical simulation is to use the same random number stream for each estimator 
in the simulation [Ref. 1, p. VII-24]. Thus, each estimator operates on the same Series 
of random numbers, instead of on separate streams of random numbers, and the vari- 
ability between different estimators that would be introduced by differing random num- 
ber streams is reduced to only the variability introduced by the behavior of the 
estimators, as they are applied to the samples through the sectioning and replication 
process. This is accompished in SIMTBED with the random number seeds used to begin 
the generation of the pseudo-random numbers (see Appendix A for a detailed de- 


scription of the SIMTBED parameters). 


D. SIMTBED OUTPUT AND STATISTICS. 
1. The Basic SIMTBED Plot. 

Figure 2 represents the basic SIMTBED plot, a series of boxplots for each 
sub-sample size, representing the simulation for one estimator.1 
Included in the boxplot for each sub-sample size are (M x N)/ NE evaluations of an es- 
timator. If regression is performed, the regression asymptote is also plotted. To facili- 
tate plotting the regression line, the sub-samples are placed according to their value (..e., 
the axis is scaled based on the sub-sample values). The following statistics are listed in 
tabular form for each sub-sample size: the first four central moments, the standard error 
of the mean, and (optionally) the mean squared error. The coefficients of the regression 
equation are also listed. The estimator name appears at the bottom of the plot. 

a. An Example of Generating the Estimators. 
In the example of Figure 2, we have generated Normal, AR(1) (autoregressive) time se- 


ries with mean zero and variance 4, and the successive values of the time series are 


1 These plots have been reduced for enclosure in the thesis. They are normally full-sized. 
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Figure 2. Sample SIMTBED Simulation. 
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correlated with correlation coefficient p = 0.9. The estimator is the familiar moment 


estimator of serial correlation: 
NE-1 


AN i= 1 
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where xX 1s the mean of the NE observations in the estimator. 

Thus, we Know the properties of the generated random number stream and 
we are observing the behavior of the estimator p. Figure 2 shows that the simulation 
was performed for each of 8 subsample sizes, ranging from 20 to 500, and 6000 random 
variates were used to simulate each subsample size, and this was repeated 20 times to 
assess the precision’ of ihe regression coefficients. So, for example, for subsample size 


100, the number of evaluations of p is given by: 


6000 x 20 


100 1200 


These 1200 evaluations of p were obtained by proceeding as follows. The 
sample space of 6000 generated data values of the time series is sectioned into batches 
of size 100 (the subsample size in this example). For each section, one value of the es- 
tumator is computed. This sectioning is then replicated 20 times (M = 20), which yields 
60 x 20 = 1200 evaluations of the estimator at subsample size 100. From Figure 2, the 
values of the moments computed below the column labeled ‘100’ are thus based on 1200 
evaluations of p. 

b. Subsample Statistics. 

Continuing with subsample size 100 as an example from Figure 2, the mean, 
standard deviation, standard deviation of the mean, mean squared error, and the higher 
moments (coefficients of skewness and kurtosis using unbiased expressions) are com- 
puted, using all 1200 evaluations of p. The theoretical standard error of the correlation 


estimate can be seen to follow the behavior given by: 


sample S.D. of the estimates of the correlation 


ne , 


S.D. MEAN = 


15 


where here 7 is the total number of estimates of serial correlation used. For subsample 
size 100, the standard deviation of the average of the 1200 estimates of the serial corre- 
lation is estimated from the standard deviation of the 1200 computed values of serial 


correlation. This gives 


06260 


J 1200 


Thus the mean value of the estimate of p, namely 0.8829, is more that two estimated 


= 0.001807 . 


standard deviations from the Known true value p = 0.9, indicating that the estimator is 
still biased at sample size 100. 

The mean squared error (MSE) is used in this simulation since we know the 
value of the estimator under study for the sample we generated, 1.e., we created the 
random number stream with a correlation of 0.9. We can thus measure how the esti- 
mator deviates from this value, still considering its inherent variability, by using the 


mean squared error given by2 


MSE = ./VAR(B) + (@—p) , 


where 7? is the average of all the estimates p of serial correlation (the estimator under 
study in this example), p is the Known true value of the serial correlation of the time 
series, and VAR(p) is the sample variance of the estimates of serial correlation (there are 
1200 of these for sub-sample size 100 in this example). This expression is realized by 
considering that the variance of the realized values of the estimators (serial correlation) 
is the second central moment about the expected value of the estimator (E(p), usually 


estimated by p ), i.e. 


VAR(D) = B(b — EGY? = ap xe - 3), 
i=] 


where p represents the estimated value of the statistical estimator under study (i.e., se- 
rial correlation in the example), and p represents the average of all the observed values 


of p The expected value of the estimator, E( p ), may in fact be biased, and not at all 


2 Formula from SIMTBED source code. 
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approach the true value p. So, the Mean Squared Error is used, as the expectation of 


the values of the estimator, p about the true value p. Thus, 
MSE(p) = E(p — p)’. 


This Mean Squared Error can be thought of as consisting of two parts: the variation 
of the evaluated estimators about their average (their expected value), and the variation 
of this expected value about the true value p. Mean Squared Error then becomes 


MSE(p) = VAR(p) + (bias)* , 


with the ‘bias’ term representing the difference between the expectation of the estimator, 


E(p) and the true value p, giving 
MSE(p) = VAR(p) + (E(p) — p)° 


Now, using p to estimate the expected value of the estimator (serial correlation in the 
example), E(p), and computing the expected value from the evaluations of serial corre- 


lation gives the formula for computing the estimated Mean Squared Error, 


l 


n 2 
: A, = ] A 2 — 2 
ee) lee (bop) + (P =p) 
1=1 


This becomes 
MSEo= ./WVARG)E @—py> 


giving the formula used for mean squared error.3 
If the known values of the estimator are not available for the simulation, 
MSE 1s not used (SIMTBED parameter entries). 
c. Regression. 
Part of the tabled information of Figure 2 includes the regression coeffi- 
cients, as discussed in Chapter 2. When replications are performed, the variance and 
standard deviation of the regression coefficients for the regression on the means of the 


estimator is supplied. In this example, the degree of regression (the number of terms of 


3 From analysis with thesis advisor. 


17 


equations 2.1 and 2.2 to be used) is 4, and the regression coefficients can be observed. 
Note that if the number of subsamples in the simulation is too small (eight is a maxi- 
mum, not the required number), SIMTBED will not perform regression. The first value 
listed in the “mean of regression on averages” line in Figure 2 is the estimated asymptotic 
value of the estimator, given by this simulation. Since the estimate of this asymptote 1s 
0.8929 and the true value is 0.9, the difference is 0.0071. The estimated standard devi- 
ation of the estimate of 0.044 (line labeled “std dev of regression”). Thus the estimate 
0.8929 is within 2 (estimated) standard deviations of its true value. 

Note that if super-replications were performed we could obtain several 
evaluations of this asymptotic value, as well as its average over the number of super- 
replications performed. 

d. Boxplot Graphics. 

For each subsample size, a boxplot is provided which displays the location 
and spread behavior for all the evaluations of the estimator obtained for that subsample 
size. Continuing with the current example, for subsample size 100, then, 1200 values of 
p are incorporated into that particular boxplot. In Figure 2, the boxplots are con- 
structed using reduced graphics, which means the extreme outliers are counted and dis- 
plaved at the ends of the boxplot, rather than actually plotted, which would occupv 
valuable scaling space on the plot. This way, the majority of the space is devoted to the 
location measures (mean and median) and the spread measure (inter-quartile range) for 
the graph. The asymptote and regression lines are also included when regression 1s 
performed. This way, the behavior of the estimator can be observed with regard to 
sample size. In Figure 2, it can be seen that the moment estimator indeed has some bias 
at the lower sample sizes, but that the bias disappears as sample size increases. For 
further analysis the user can select the subsample sizes which will be plotted together for 
all the estimators 1n the simulation in the combined color plot at the end of the simu- 
lation run. Also of note is that this boxplot graph 1s only one realization of the data that 
is incorporated into super-replications. Up to three consecutive plots like Figure 2 can 
be prepared when super-replications are used, each an iteration itself. 

2. Quantile Plots. 
Figure 3 depicts the second SIMTBED plot produced as each estimator is 
processed. It consists of the empirical quantiles of the estimator at each subsample size, 
with each quantile represented by a symbol. A table below the plot lists the actual val- 


ues. This plot can be seen to correspond exactly with the boxplots of Figure 2. It is 
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QUANTILE PLOT 
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0,950 1,829 1,924 5.608 0.9980 0.5814 0.5727 0.9984 0.9542 
SeR. COR. 0.0225 0.0435 -0.0007 0.0402 -0.0258 0.0172 “0.0751 “0.0316 


ee 
ESTIMATOR: &9Rto of N/0.4) rows. rho=0.9 usina acaent estisator 


Figure 3. Sample SIMTBED Quantile Plot. 
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merely a more detailed representation of the data. Here, the tails of the estimator dis- 
tribution can be examined for symmetry, etc. 
3. Super-replications Output. 

When super-replications are used, a summary quantile plot, like that in Figure 
4, is prepared, along with a tabulated summary (Figure 5). Figure 4 is an example 
super-replication quantile plot. This plot is rather self-explanatory, beyond the fact that 
it consists of the quantiles of each iteration of the basic SIMTBED plot discussed above. 
In other words, in Figure 4, there are three values of the 0.5 quantile averaged and 
plotted with an ‘M’; these quantiles are part of the table of summary statistics for all 
Super-replications, an example of which appears in Figure 5. Note here that all the 
statistics included in the basic plot are present, and that each has an associated standard 
deviation, obtained by repeating the entire simulation experiment. This procedure can 
be carried on indefinitely by the use of the restart facility. When restart is used, the 
previous values are saved in a file, and all previous data is used to prepare the most re- 
cent super-replications summary table and plot. Refering to Figure 5, we can see the 
mean of regression on averages entry, which 1s a list of the regression coefficients, and 
we see the moment estimator asymptotically tending to 0.8991, which would indicate 
asymptotic unbiasedness for this estimator, given that the largest sample size used was 
500, and the number of super-replications used here was 3. This would indicate 
convergance to the known value of 0.9 for this estimator. In the next chapter we will 
see the behavior as the super-replications are carried out much further. 

4. Color Combined Estimator Plots. 

After the simulation run has proceeded through all super-replications of as 
many as five statistical estimators, we may be interested in how the estimators compare 
to each other. This plot was incorporated into SIMTBED for that purpose. Figure 6 
is an example of four estimators of serial correlation, all plotted together, for three of the 
eight subsample sizes of the simulation. Note that the group of boxplots (each con- 
taining four boxplots, one for each estimator) is positioned with respect to the second 
one in the group. Note also that the plots are coded dually, as discussed in Chapter 1, 
Section E. That is, they are coded by color and position. The names of the estimators 
appear at the bottom of the plot. Estimator 1, the robust least squares approach to se- 
rial correlation, is the first in each group for the three subsamples. All estimators are 
applied to the same distribution and their behavior can be directly compared. Referring 
to Figure 6, one can observe that for small sample sizes, the robust least squares esti- 


mator has the best behavior in terms of bias. Note that the samples come from the 
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SUMMARY QUANTILE PLOT FOR ALL SUPER-REPLICATIONS 


SAMPLE SIZE (WN): 6000 NO. OF REPLICATIONS (KM): 20 DEGREE OF REGRESSION (0): 4 
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2 ~»=-60 100 150 200 250 350 500 
SUBSAMPLE 
SIZE 20 60 100 id 200 250 350 500 
QUANTILE 
0.010 0.1620 0.5978 0.7057 0.7475 0.7983 0.8052 0.8314 0.8603 
0.025 0.2759 0.6624 0.7400 0.7849 0.8160 0.8247 0.8422 0.8522 
0.050 0.3774 0.7061 0.7695 0.8074 0.8256 0.8376 0.8539 0.8609 
0.400 0.4888 0.7507 0.8055 0.8292 0.8662 0.8520 0.8846 0.8686 
0.250 0.6500 0.8190 0.8490 0.8636 0.8755 0.8752 0.8812 0.6852 
0.500 0.7934 0.8829 0.8905 0.8949 0.8979 0.8991 0.8996 0.8985 
0.750 0.9044 0.9334 0.9273 0.9229 0.9216 0.9186 0.9374 0.9130 
0.900 0.9864 0.9754 0.9577 0.9472 0.9403 0.9344 0.9300 0.9244 
0.950 1.025 0.9997 0.9748 0.9632 0.9537 0.9499 0.9394 0.9324 
0.975 1.058 1.015 0.9886 0.9768 0.9666 0.9603 0.9461 0.9374 
0.990 1.092 1.032 1.030 0.9909 0.9796 0.9698 0.9552 0.9507 
SER.COR. 0.0091 0.0090 0.0527 0.0282 1.0135 0.0150 0.0332 0.0070 


ESTIMATOR: ttRho of N(0,4) r.v.s, rho=0.9 using eoaent estisator 


Figure 4. Sample SIMTBED Super-replication Quantile Plot. 
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SUBSAPPLE 
SIZE 


MEAN 


STD 


fics. 


SKEWNESS 


KURTOS1S 


SER.COR. 


QUANTILES 
0.010 


9.025 


0.090 


0.100 


0.250 


0.500 


0.750 


0.900 


0.990 
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0.990 


MEAN OF REGRESSION ON AVERAGES 


20 
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0.2681E-01 
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0.9131E-02 
0.1472E-01 


0.1620 
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0.2759 
0.4175E-02 


0.3774 
0.8658E-02 
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0.5519E-02 
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0.1236£-02 
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0. 2088£-02 


0.9044 
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0.9864 
0.9247E-03 
1.025 
0.2519E-02 
i .058 
0.2093E-03 


1.092 
0.1359E-02 


STD DEV OF REGRESSION 


REGRESSION ON VARIANCE 


SUMMARY STATISTICS (MEAN/STD) 


60 io 
0.8704 0.8848 
O.4679E-03 0. 9913E-03 
O.9064E-01  0.6238E-01 
O.S779E-03 0.6536E-03 
O.9S34E-01 0.6420E-01 
0.4905E-03 0.7706E-03 

0.8485 0.6380 
D.6518E-01 0.3722E-01 
1.481 0.7619 
0.35905 0.1447 
O.B963E-02  0.1268E-01 
O.1940E-O1 0.1998E-01 
0.9978 0.7097 
0.1482E-02 0.7951E-02 
0.6624 0.7400 
O.1712E-02 = 0.18 S9E-02 
0.7061 0.7695 
0.1082E-02 0. 2315E-02 
0.7507 0.8013 
O.2995E-02  0.1647&-02 
0.8190 0.8490 
O.LS71E-02 0. 7112E-03 
0.8829 0.8905 
O.6541E-03 0.1049E-02 
0.9334 0.9273 
O.1674E-03 0.1045E-02 
0.9794 0.9577 
0.1282E-02 0.1376E-02 
0.9997 0.9748 
0.2632E-04 0.2633E-02 
1.015 0.9884 
O.8745E-03 = 0.221 3€-02 
1.032 1.010 
0.7543E-03  0.1090€-02 
0.8991 
0.3115E-02 
0.4999E-02 
0.3802E-03 
0.B547E-01 
1790 
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0.8910 
0.16350E-02 


0.4781E-01 
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0.1069E-02 


0.9725 
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0.9390 
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0.1293€-01 
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0.7849 
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0.8074 
0.3591E-02 
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0.8634 
0.2002E-02 


0.8949 
0.1762E-02 


0.9229 
0.1902E-02 
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0.1973E-02 


0.9632 
0. 1801E-02 


0.9768 
0.1489E-02 


0.9909 
0.2622E-02 


0.2048 
1.607 


2.809 
0.2048 


3.798 
9.159 


ESTIMATOR: $8Rho of N(0,4) r.v.s, rho=0.9 using aonent estisator 
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0.8950 
0.6414€-03 
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228.7 
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27.82 
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148.3 


3 SUPER-REPLICATI ONS 
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0.8964 
0.3123E-03 
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0.2001E-02 
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0.2014€-02 


-0.3789 
0.1943 
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0.6870E-02 
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0.4357E-02 
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0.9186 
0.7409E-03 


0.9344 
0.1238E-02 
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0.4257E-02 
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0.1164E+05 
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—0.3321E-01 
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0.3525E-02 
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0.6690E-03 
0.8646 
0.1393E-02 


0.8812 
0.1184E-€2 


0.8996 
0.2060E-02 


0.9174 
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Figure 5. Sample SIMTBED Super-replication Summary Statistics. 
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300 
0.8979 
0.2670€-03 


0.2171£-01 
0.B577E-03 


0.2181£-01 
0.B533E-05 


-0.2004 
0.6242E-01 


0.1808 
0.2592 


0. 7040E-02 
0.2130€-01 


0.8403 
0.4B830E-02 


0.8522 
0.5105€-02 


0.8609 
0.2132£-02 


0.8686 
0.4752E-03 


0.8852 
0.4015E-03 


0.8985 
0.5521E-03 


0.9130 
0.3004E-03 


0.9244 
0.1113€-02 


0.9324 
0.1328E-02 


0.9374 
0.1666£-02 


0.9507 
0.2343€-02 


Normal AR(1) data. The next chapter will demonstrate that this good behavior of the 
robust estimator does not hold for other types of time series, but the point here is that 
with this combined estimator plot, the behavior is readily apparent, and though all the 
tabulated data from the entire simulation is available for review, this information 1s ap- 
parent from an immediate glance at this type of plot. Thus, the effort required to per- 
form output analysis from the multi-factor statistical simulation has been significantly 
reduced through the use of color and graphical displays of the simulation results. 
5. Maulti-Factor Simulations With SIMTBED. 

Chapter II discussed the multi-factor aspects of statistical simulations, and this 
section discusses how they can be addressed using SIMTBED. There is a direct appli- 
cation of the simulation factor sample size to the SEMTBED package. The SIMTBED 
subsample size becomes the sample size factor. With SIMTBED, there are five estima- 
tors possible, and there are three other factors involved in any common statistical sim- 
ulation: estimator used, distribution of the samples, and parameters of that distribution. 
Thus, the estimator parameter of SIMTBED can be used to express any one of these 
remaining three factors, leaving two factors that will require multiple runs of the 
SIMTBED simulation. This still represents a great reduction in the amount of separate 
work required. For example, in the next section we will use four of the five positions 
of SIMTBED to represent the estimator used, and then SIMTBED will be run for dif- 
fering combinations of distribution and parameter (e.g., Normal(0,1) 6 = 0.0, 0.9, and 
-0.9). When SIMTBED 1s run on the common personal computer, all one need do is 
execute SIMTBED in parallel on several available machines, and the multi-factor simu- 
lation is completed. Actually, we are using the personal computer itself to apply one 
factor of the simulation. That was the approach taken for the application presented in 


ine next chapter. 
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SMTB COMBINED ESTIMATOR BOXPLOTS: SAMPLE SIZE: 6000 NO. REPLICATIONS: 20 DEG REGRESSION: 4 
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BSAMPLE SIZE; 20 60 350 

TIMATOR 1; MEAN: 0. 8469 0. 8740 0.83935 

STD: 0. 1327 0.715601 0, 2711E-01 
STD MEAN: O.1713E0e 3 3=—s:« 0. LEQDE Ke Ss«é0 1 4 70E-02 
BSAMPLE SIZE: 20 60 350 
TIMATOR 2: = MEAN: 0, 8827 0.8918 0, 8960 
STD: 0. 1352 0.7054E01 0, 2535€-01 
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TIMATOR 1: ##Rho of N(0,4) r.v.8, rho=0.9 using robust Least Squares estisator 
TIMATOR ¢: ##Rho of N(0,4) r.v.s, rho=0.9 using Cressie estisator 

TIMATOR 3: ##Rho of N(0,4) r.v.s, rho=0.9 using soment estisator 

TIMATOR 4: ##Rho of N(0,4) r.v.s, rhow0.9 using Priestly Estisator 


Figure 6. Sample SIMTBED Color Combined Estimator Plots. 
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IV. ANALYSIS OF LAG-1 SERIAL CORRELATION 


The purpose of this chapter 1s twofold: to provide a demonstration of statistical 
simulation using SIMTBED, and also to provide some simulation results for some esti- 
mators of serial correlation gathered from the lterature. Some of these estimators differ 
from the standard ones in that they have varying degrees of robustness claimed for them, 
and so we will run simulations to demonstrate this, or the lack of this robustness. By 
robustness, we mean the ability to produce nearly correct or unbiased estimates of the 
actual serial correlation when the underlying marginal distribution of the data is no 
longer the Normal distribution, and the time series are not linear AR(1) processes. With 
that in mind, the choice of distributions and time series to be used is maue. We begin 
with a description of the estimators of lag-1 serial correlation that are compared, fol- 
lowed by a discussion of the distributions, parameters and processes chosen. The results 
of these simulations, run with SIMTBED on the PC are then discussed. 


A. THE ESTIMATORS. 
For this simulation experiment, we have available four estimators of the serial cor- 


relation of a random process (random number stream). These are: 


e The moment estimator. This is the most widely Known and used estimator of serial 
correlation in a time Series, and so is included here. It is a non-parametric estima- 
ie 


¢ The Maximum Liklihood Estimator. Also called the Priestley estimator. Some- 
what more involved computationally, and its derivation depends on the explicit 
assumption that the data comes from a Normal, linear autoregressive (AR(1)) time 
Senics. 


e The Cressie estimator. Carrying the name of Noel Cressie, this estimator has the 
potential for robustness because of its choice of the median as the measure of lo- 
cation, rather that the more common mean. 


e Robust Least Squares Regression. Also called Iterated Weighted Least Squares 
(IWLS), this method has appeal in its purported ability to reduce regression errors 
in successive passes, but the choice of the weighting function must be made, and 
it can be computationally intense. 


Each of these estimators is discussed in greater detail below. 
1. The Moment Estimator. 
This estimator has a form that is analogous to that for the correlation coeffi- 


cient for two samples given in any statistics textbook, except that the two samples are 


Zo 


actually the members of only one sample, but offset by one index, 1.e., the data is ob- 
tained from a time series (discrete parameter stochastic process). This yields, from the 
Lewis and Orav text on simulation methodology [Ref. 1, p. VIII-57] the following esti- 
mator for the lag one serial correlation. The correlation coefficient of lag one is defined 


as 


Cov (Xi Xian) EX Xin] — ELXDEDX 1] 


1 ee 
el) Var (X;)Var(4;, 1) iC idle 


For stationary time series, the correlation coefficient is independent of time (serial 


number), and the moment estimator becomes 


n—| 
n> (XXX —¥) 
\y = (4.1) 
(n =) — xy’ 


i=1 


The term moment estimator is used for this estimator because the arithmetic mean *X 1s 
used to estimate E[X] and the usual moment estimator is used for E[X,X,.,]. In fact, 
though, the estimator used in this simulation 1s the form of equation (4.1) with the (n-1) 
bias term in the denominator replaced by (n), which yields the computational form re- 
ferred to by Lewis and Orav as the Yule-Walker estimator [Ref. 1, p. VIII-56]: 


n—-| 
» DK —H 
oe (4.2) 
) a ee 


i=] 


D> 


Again, this estimator is widely used for estimating serial correlation, and as will be seen, 
has good asymptotic properties as sample size increases (depending on the underlying 
distribution), but can have significant small-sample bias, especially with time series 


whose marginal distributions are markedly different from the Normal distribution. 
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2. The Priestley (conditional M.L.E.) Estimator. 


This estimator 1s put forth as the conditional Maximum Liklihood Estimator 


(MLE), also called for convenience the Priestley estimator of lag-1 serial correlation 


[Ref. 8]. It also has good asymptotic properties, as well as the problem of small-sample 


bias, as the simulations will demonstrate. The estimator is 


A en 
PMLE = 


n-1 
DK Ags — 8 
i=] 

n-} 


(X,— py 


i=] 


where 
(A — B) + (n— YX q)(Xey - Xay)I 
and 
= Average over first (n—1) observations 
as in the time series of length n 
= Average over last (n—1) observations 
Cha in the time series of length n 
and 


and finally, 


Zi 


(4.3) 


3. The Cressie Estimator. 
This interesting estimator of lag-! serial correlation has vague sources. It was 


obtained by personal communication with Cressie by Professor Lewis. The estimator is 


N-1 x 
> 1% XW? 
AN ] i= 
Pen =e > —- (4.4) 


N—-] 
SX, — FIP 
i=! 


where X is the median of the sample. One can only comment and speculate on the be- 
havior of this estimator. Lacking analytical results, we resort to statistical simulation 


to observe its behavior. 


B. ROBUST REGRESSION TO ESTIMATE SERIAL CORRELATION. 

We start here by presenting the Normal autoregressive lag-1 model (AR(1)), and 
then show that normal regression yields the usual estimate for p discussed in section A. 1 
above. Then the Iterated Weighted Least Squares (IWLS) procedure 1s presented, with 
a short discussion concerning the literature. 

In the Normal (Gaussian) AR(1) model, the observations x,,, are determined from 
the previous x,, the correlation coefficient p, and a random deviation that can be Normal 


or non-Normal (it is Normal for the Normal model).4 Thus, 
ay = eget er (4.5) 


This is referred to by Denbv and Martin as the “Innovations Outlier Model (10)’[Ref. 
9, p. 140]. They also describe an “Additive Effects Outlier Model (AO),” but that will 
not be pursued here. The model (4.5) is the approach taken to generate correlated 
Normal random streams, as will be discussed presently. If one wishes to assume the ¢€ 
in Equation (4.5) are normally distributed with mean zero, and standard deviation a, 
then a zero-intercept regression model can be applied, and shown to yield the moment 
estimator above. It 1s when this assumption of normality is not applicable that iterating 
the least squares procedure with weighting functions can be interesting. Thus, using the 
matrix notation adopted in the study of linear regression, we can restate the IO model 


as: 


4 This model was introduced to me by P.A.W. Lewis, but also appears in [Ref. 9, p. 140]. 
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Y = pX+#+e (4.6) 


where Y is the vector of the last N-1 members of the random number stream, and X 1s 
the vector of the first N-1 members. Thus, we are regressing the random stream against 
itself, offset by one element. Using the matrix solution to the least squares regression 


procedure:5 
CO imen( Xs, Shen ONO. 


This yields, for the 1O model above: 


N-1 
DXi Xen 
= cle! 


A 
p ea 
2 
Aj 


i=] 


This formula actually uses the fact that we Know in the simulation that the mean 
value of the X;,-. is zero. The sample mean would normally be subtracted from the data, 
as in Equation 4.2, but this is generally a second order effect. The above formula 1s ac- 
tually the starting solution used in the IWLS procedure. From this estimate of p, the 
residuals are computed, from Equation 4.6, by substituting p for p and inverting the 
(linear) equation. A weighting function is then applied to the residuals, and the weights 
are multiplied onto the original data points. A data point which gave a small residual 
will produce a larger weight, and points which produced large residuals will yield smaller 
Weights, even to the point of deletion from the regression for extreme outliers. The 
scaling constant helps determine these aspects of the weights. The regression is then 
repeated, yielding a better estimate of p, in terms of the residuals. This is briefly dis- 
cussed by Weisberg [Ref. 10, p. 87], but is presented in more detail by Beaton and Tukey 
[Ref. 11, pp. 151-152]. These authors refer to this estimation procedure as “w-estimates, 
being multiple steps of “m-estimates.”. The common least squares weighting function, 


the “bi-square” function, given by 


> From course notes, OA3103, Prof. Larson, Spring 1987. 


zg 


0) else 


2,2 
we ‘0 — u’) for [ul < | (4.7) 


is used to determine the weight for the next step of the regression, based on the value 
of the residuals. The arguments for this function in the IWLS procedure are the resi- 
duals calculated from the previous regression step, using the last estimate for p. The 
median, denoted here by S, multiplied by a scaling constant, c (chosen to provide good 
performance of the [WLS method), is used to scale the residuals. Thus, the argument 


u for Equation 4.7 becomes 


fi 
ou 
with ry, denoting the residuals, S the median of the data, and c, the scaling constant, 
usually taking a value of 4.2 or 6. [Ref. 11, p. 151] In addition, Denby and Martin chose 
to divide the median by another factor of 0.6745, for reasons not stated. We ran a 
simulation with and without this factor, and chose the standard approach, without the 
additional scaling factor. 

The procedure just described is also known as robust regression. Indeed, in the 
International Mathematics and Statistics Library of FORTRAN subroutines (IMSL) 
implemented on the mainframe computer at the Naval Postgraduate School, there is a 
subroutine Which accomplishes this regression.6 Since the source code is available for 
these routines, it was incorporated into the SIMTBED simulation experiment carried 
out with this research. The weighting function used there is the bisquare weighting 
function just described. 

Robust regression needs a stopping rule. A comparison of the latest estimated value 
of p with the last estimated value can be used. When there is only slight change the re- 
gression can be halted. Additionally, a maximum number of iterations can also be 
specified. 

This robust regression approach to serial correlation is applied in this simulation to 
both Normal and non-Normal distributions. In their paper on robust estimation of se- 
rial correlation, Denby and Martin refer to “M-estimates” and “GM-estimates’, or gen- 


eralized M-estimates, depending on the choice and number of the weighting functions 


6 All IMSL routines have source code available through the LIBSOURCE utility of the 
VM/CMIS mainframe operating system. 


30 


used [Ref: 9, p. 141]. This regression approach, which 1s applied to their “IO” model, ts 
an “M-estimate”, due to the choice of one weighting function, and the use of the 
“rescending Tukev bisquare influence function”. According to Denby and Martin, 
As we show subsequently, @, 1s highly robust in terms of effiency for good choices 
of w(x) when model 1O holds, but has an asymptotic bias which can be as cat- 
astrophic as that of the least squares estimate for Model AO. [Ref. 9, p. 141]. 
This simulation attempts to compare these biases, restricted to the IO model, in addition 
to the behavior of the other estimators described. The distributions and random proc- 


esses used will be discussed below. 


C. DISTRIBUTIONS USED. 

Two different distributions were used in this simulation for marginal distributions 
of the processes. The first 1s the Normal distribution, with mean Zero, and variance four, 
i.e. N(O,4), and the second is the /-Laplace distribution, with parameter /.. The processes 
with these marginal distributions are discussed below. 

1. The Normal distribution. 
Creating correlated random number streams that are marginally Normally dis- 
tributed involves a simple application of the IO model described earlier. The only real 
consideration 1s the initial value to use, X, This process 1s referred to as the Normal (or 


Gaussian) Autoregressive process, AR(1). The IO model ts 


where ¢ is Normal(0,o2). The value of p is known. For X,, use ¢,/(1 — p2)z. If the vari- 
ance of the e random sample is o?, the variance of the X sample, after transformation, 
will be o?/(1 — p?).7 So, we can thus construct a correlated stationary normal time series, 
and then apply all the estimators to it. 

2. The |-Laplace Distribution. 

A discussion of the /-Laplace family of probability distributions can begin with 
the widely known Laplace distribution. This distribution 1s known to be constructed as 
the difference of two Exponential (4) random variables, and the standard Laplace ran- 
dom variable has mean zero, and / equal to one. It is also known that the Exponential 
distribution 1s a member of the Gamma family of distributions, with shape parameter 


equal to one, and scale parameter equal / (this discussion can be found in almost any 


7 From P.A.W. Lewis, thesis advisor. 
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introductory probability text) [Ref. 12, p. 274]. Thus, the standard Laplace distribution 
(the difference of two standard exponentials) can be obtained as the difference of two 
Gamma(1,1) random variable streams (the first parameter is taken as the shape, and the 
second as the scale). Dewald, et al, present the family of distributions defined as 
/-Laplace distributions as being the difference of two Gamma(/,1) random variables [Ref. 
13, p. 4]. This distribution can take a variety of shapes, as shown in Figure 7. 

Because of the various shapes possible by the choice of parameter / of this distribution, 
it was selected for the non-Normal simulation in this study. 

The /-Laplace distribution is symmetric about the origin, and / can be chosen 
to have the shape resemble the Normal distribution (large /), or a very heavy-tailed dis- 
tribution which is very non-Normal in nature (small /). 

Figure 7 contains examples of empirical histograms for various generated 
l-Laplace samples (Closed forms for the densities are hard to compute). But, these 
samples are independent, and this simulation is concerned with serial correlation. We 
need a method to generate correlated |-Laplace streams. 

Unfortunately, random number streams which are created by the linear first 
order autoregressive [O model (AR(1)) have what is called a “zero defect,” meaning the 
value zero for the residual can occur with a positive probability. Moreover, if the pa- 
rameter / 1s small, this effect can become large. Thus, direct application of the method 
described above for generating correlated Normal random streams (the “linear method’) 
to /-Laplace time series can cause severe problems in a simulation such as this, where a 
lot of processing is done to the random stream. For this reason, DeWald, Lewis and 
McKenzie introduce the Square Root Beta Laplace transformation and time series, 
which is non-linear, and does not possess the “zero defect.” [Ref. 13, p. 9] 

We can take the expression for the Gaussian AR model (Equation 4.5), and 
treat the correlation parameter (p) as a random entity. DeWald, et al, do this, and define 


the /-Beta Laplace First-Order Autoregressive Process, /-BELAR(1), as 
A{) = VJA(lo, a) X_() + J Bila, la) Ld), (4.8) 


where A,is an independent, identically distributed (i. 1. d.) stream of Beta (/a, /«) vari- 
ables, and the B,'s are also Beta distributed, with parameters given above. L, (/) is an 1. 
i. d. stream of /-Laplace variables with parameter /, and « equal to (1-a«). [Ref. 13, p. 10]. 
The parameter a 1s chosen to fix the serial correlation. With this process, any positive 


correlation can be implemented, with any desired shape of the probability density. As 


a2 
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Figure 7. Various Shapes of the 1-Laplace distribution 
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a goes from zero to one, the full range of positive correlations 1s covered. To see the 
relation between correlation p and a, and /, note that we can interpret this in the 1O 
model discussed above, with the right-most term of Equation 4.8 as the innovation, and 
the coefficient of X,_,(4 as a randomly distributed correlation coefficient. This approach 


is taken by De Wald et al, and the correlation coefficient is given in terms of « and J, as 


the expected value of ./A(lo, fa) (Ref. 13, p. 11]: 


aD (loc + + )P(I+ 1) 
pl) = a (4.9) 
P+ > i (lo + 1) 


Thus, this distribution can be used to generate time series with various corre- 
lations, and varying degrees of departure from the familiar Normal-shaped distribution, 
allowing us to investigate the behavior of the statistical estimators of serial correlation 
under different distributional conditions. Note also that the L{ random stream in 
Equation 4.8 is an /-Laplace distributed variable, which is computed as the difference 
of two Gamma random variables. 

Figure 8 shows the behavior of several correlated random number streams gen- 
erated using Equation 4.9. Note that the streams cycle, or consist of long runs of verv 
small values, followed by peak values, and that this correlation can be the same for 
widely different distributional shapes, given by / (a is then chosen to acquire the desired 


COT elation i Nelle aenli2 |: 


D. CONDUCT OF THE EXPERIMENT. 


It was desired to study the estimators under three conditions of correlation: 
e High positive corrc!ation (p = 0.9). 
e Low correlation,;near independence (p = 0.0). 


¢ Negative correlation (p = -0.9). 


Due to the complex form of Equation 4.9, it is not possible to get an exact inverse re- 
lationship between a and p for the non-Normal distribution. Therefore, p approximat- 
ing the above values was used. | 
We studied five marginal distributional shapes (including the Normal distributon): 
¢ Normally distributed. 
e / = 3, nearly Normal in shape. 


e /= |, departing from Normal behavior. 
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e / = .4, definitely non-Normal. 


e /=.], extremely non-Normal. 


Further, for the Normal distribution study, we wished to investigate the convergence 
of the estimators, so a run consisting of up to 23 super-replications of the simulation 
was conducted to demonstrated this. The speed of Normal random number generators 
is such that this is possible in a reasonable time. With the Gamma and Beta generators, 
this type of extended simulation will take an extremely long time, depending on the 
choice of / and a (a few super-replications can easily take several days, so this type of 
run could take weeks on a PC). 

The sample sizes for the experiment ranged from 20 to 500, with eight being used in 
all runs (see the results figures in the next chapter). Also, we performed a run with the 
robust regression estimator using eight sample sizes, the largest sample size being 5000, 
to observe the bias of this estimator. 

Since each run of SIMTBED can accomodate eight sub-sample sizes, these can all 
be combined in a run. SIMTBED can also take up to five estimators. Four will be used 
in this experiment, one for each estimator. Thus one run of SIMTBED is required for 
each distribution and for each correlation under study, giving 15 runs of SIMTBED as 
a base. Of course, debugging and small-sample checkout of the simulations must be 
done. [his number of runs is a good size project, but not unmanageable. It compares 
very differently with the example in Chapter 2, without using a simulation package such 
as SIMTBED. The actual number of runs needed to conduct the experiment is much 
more than 15 (about 30), since all the programming related factors must be debugged 
(random number generators, output files, array sizes, etc). The results of the experiment 
are discussed in the next chapter. The amount of output obtained in an experiment like 
this is extremely large, even using an analvsis package like SIMTBED. Approximately 


500 pages of graphs, examples of which follow, were generated by this experiment. 


by) 


EXAMPLE PLOTS OF CORRELATED L-LAPLACE RANDOM STREAMS 
L=3, RHO=0.8972 L=1, RHO=0.8972 











V. SIMULATION RESULTS 


A. NORMALLY DISTRIBUTED SAMPLES. 

Consider first the correlated Normal samples (9 = 0.9). Figure 9 shows the color 
combined estimator plot for each estimator (for three selected subsample sizes), as is 
shown in the legend at the bottom of the graph. With this plot added to SIMTBED, 
immediate comparison of the estimators is possible, and from this graph many things 
about the behavior of these estimators are evident. 

First, all four estimators seem to approach the same value, i.e. the true value 
p=90.9. This is evident from the asymptote lines, which are all plotted at the same lo- 
cation. Further, the tabled data in the plot, as well as the other plots in the following 
figures, support this observation. So, these estimators can be seen to be asymptotically 
unbiased, for this sample distribution (Normal). 

Next, consider the small-sample distribution of the estimators. It can be seen that 
the Cressie estimator appears to have the best behavior, in terms of bias at sample sizes 
20 through 60, although there are more negative outliers in the plots for the Cressie es- 
timator than for the others. As an example calculation, we can show how many evalu- 
ations of each estimator are represented by a particular boxplot. Take sample size 20 
for example. The number of evaluations of each of the four estimators represented by 


the boxplot is: 


a _ ee ee |) — 6000 evaluations 
sub-sample size 20 


Similar calculations can be done for any sub-sample size in any SIMTBED simulation. 

Referring to the tabulated data in Figure 9, we can see the means of all the estima- 
tors approaching the known value of 0.9, for all four estimators. The standard devi- 
ations can all be seen to decrease as the convergance proceeds with increasing sample 
size. Note that this is only a brief reproduction of the tabulated data placed in the plots 
for the individual simulations, shown in the later figures. This plot is designed to 
accomodate a maximum of five estimators, so brevity is dictated here. Also note that 
each estimator in the “cluster” of boxplots for each sub-sample size has its description in 
matching color, but that they are doubly coded by position, so this plot could be used 


even if color printers were not available. 
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ESTIMATOR 1: 


ESTIMATOR 2: 
ESTIMATOR 3: 


Hho of N(0,4) r.v.s, rhoz0.9 using 


: ##Rho of N(0,4) r.v.s, rhom0.9 ising Cressie estimator 


: #eRho of N(0, 4) r.¥,$, mhoad. 9 


using 
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ESTIMATOR 4: ##Aho of N(0,4) r.v.s, rhoa0.9 using Priestly Estimator 
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Figures 10 and I] are examples of the individual plots produced as each estimator 
is processed by SIMTBED. These figures contain the same boxplots that are used to 
prepare the combined estimator plot of Figure 9. All eight sub-sample size plots are 
present in Figures 10 and II. The means of each sub-sample size can be seen to ap- 
proach the known true correlation of 0.9, and the regression asymptote is listed in the 
‘mean of regression on averages’ listing of the regression equation, which was discussed 
in Chapter II]. Finally, the mean squared error (MSE) is listed in these plots for each 
sub-sample size. This shows the small-sample bias, and as the sub-sample sizes increase, 
the MSE approaches the standard deviation of the estimators, which is evidence of de- 
creasing bias from the known value of 0.9. There are plots produced for moment and 
Priestley estimators which are not included here; they are similar to the those which are 
included here. 

Further insight into the behavior of the estimators is provided from the super- 
replications summary statistics tables, which are provided in Figures 12, 13, 14, and 15. 
In the simulation, SIMTBED has duplicated the process which generated the plots of 
Figures 10 and 11 a total of 23 times, and has 23 values of each statistic presented in the 
summary table. This was possible because of efficient generation of Normally distrib- 
uted variables, and this degree of super-replication cannot be efficiently performed for 
complicated distributions, like the |-BELAR(1) process, due to time requirements, as will 
be seen later. In these figures, though, we can observe a very good degree of conver- 
gence to the known values, for all four estimators, as the sub-sample size increases. The 
MSE also approaches very closely the standard deviation for all estimators, and the 
variability of all the statistics in the summary table can be seen to be small. Of interest 
perhaps 1s the standard deviation of the fourth moment, the kurtosis, which 1s the largest 
of the moment statistics. This is indicative of the higher variability of the higher central 
moments. We can conclude from this part of the simulation that all four estimators are 
asymptotically unbiased with respect to sample size. We can further observe that the 
Cressie estimator appears to be the best behaved in terms of small-sample bias. These 
results apply only to Normally distributed samples, of course. 

The results just discussed apply to only one aspect of the analysis for the Normally 
distributed samples: those with strong positive correlation. Figures 16 and 17 depict the 
color combined estimator plots for independent (9 = 0.0) and negatively correlated 
(po = -0.9) sample distributions. It is interesting to observe that, in terms of small- 
sample bias, the uncorrelated Normal samples have the lowest bias, versus the stronglv 


correlated samples. Due to the indicated asymptotic convergance (with respect to 
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Figure 10. Normal, Correlated Samples. Robust Least Squares Estimator. 
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Figure 11. Normal, Correlated Samples. Cressie Estimator. | 
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0. 1100 6.2173 0, 1116 O.9746E-O1 0.1596 0, 1384 0, 1433 0, 1036 
SER. COR, Q.1886E-03 OL SOLER. SHORE ~KR OL SIIMEOR OL ES1PE~CR OL IISSIE-O1  -0. 91128-0202 +0. SPREE 
Q.S07ECR 84TH ORL OEIE-Ce OL 737TE-Ce =O B1BIE~CQ OL SSGBE~CP OL 1CBE-O1 (0, 1GASE-O1 
QUANT ILES 
0,010 0. 3847 0. 6315 0, 7237 0. 7681 0, 7866 0. 8037 0. 8214 0.831 
O.38cEe OER ITIGE~CR =. 1BROE-Ce AUER LISTER CO EQHE-O2Ss(0 1SE-LP 
0, 025 0. 5047 0. 7063 0, 7622 0.7931 0, 6108 0. Be24 0, 8356 0, 8467 
O.2300E-02 OL ISBBE~CR OL LACOE CRO LOO7E~CR OL IQEC, SOBOE~O3 OL LLASE~CR (0 1 OE -~ 
0.050 0. 53¢9 0, 7461 0. 7895 0.8141 0. 6271 0, 8363 0. 8469 0, 8574 
O.1494E-CR OO, PSBIE-O3 = OO. Le0eE~CR iO. T738E-~O3 = «OW BISE-O3) = OL BTALE-~O3 =O 7937E-~03 =, B38 E-~0 
0. 100 0, 6806 Q. 7852 0.8175 0, 8358 0. 8446 0. 8311 0, 6592 0, 8685 
O.1067E-C2 =O. ESR4E~O3) =O BEBSE-O3 «= OL E7CH-~O3 «= (OL SEHOE-O3 = OL BORIE~O3) = BSKE-O3 «0, SH E~0 
0, 250 0. 7949 0. 8419 0, 8569 0. 669 0. 8710 0.8747 0,878 0, 8836 
O.SIQCEO3 OMOKEO3 0.360283 90, AIBEE-O3 = OL ATEE-O3 «=O, SSMOE-03) = OL SSBE-O3 (0, A AKE-~03 
0.300 0.8773 0, 8888 0, 8320 0, 82 0. 8960 0, 8963 0.8973 G, 8986 
O.c67H-O3 O.2991E-O3 O.SS70E-O3 O.25ebE-O3 O.3148E-O3 OREO} 0.295803 90 SIL 7E-03 
0.70 0. 9324 0. 3248 0. $210 0.91% 0.9172 0.9155 0.9137 0.9123 
O.3305%-03 =O AME-+O3 =O BREE =O PHO7E-O3) =O. SABE~O3) = «0, SC3HE~O3) =“ 7ATE-O3 =, WKE-~O 
0. 00 0. 9760 0.812 0, 9424 0, 9373 0. 9335 0. $307 0, S264 0. $233 
0.36903 9 O.FCG1E-O3 «=O SATE-~O3 =O. See 7E-O3 =O S7SE-O3 OL ITSE-+O3 =O MAME-+O3 = 0, SOE 
0. 90 1,005 0.%53 0, 9539 0, 9474 0.9419 0, 9386 0, 9339 0, 931 
O.M111E-O03 =O. 4240E-03 OO, SIE OSL EBKE-O3 =O TESE-OS = OLSRI7E-O3 «= OL AIIBE-O3 = 0, 401-03 
0. 975 1.033 0.9777 0. $35 0. S82 0. 949 0, 9451 0. 9396 0. 9345 
O.S9E-O3 O.SSTSHEO3 0.612203 O.4930E~O3 «=O ABHEE-~O3 = OL SEMES «=O SHBAEO3 = 0, 3708-03 
0. 9% 1.070 0. 9937 0.97% 0, 9651 0, S81 0. $31 0.9470 0, 9394 
Q.8586E-03 =O, BS1GE-O3) = GL BSISE-O3 =O. BEBEE-O3 = (OB 7AE-O3 =O, GLASE-~O3 = OL BSCHE-~O3 = 0, 6976E 03 
MEAN OF REGRESSION ON AVERAGES 0, 9000 “1.78 40.6 1239, “511.3 
: 0, 737E-03 0. 3863 3.07 e775. 1240, 
STD DEV OF REGRESSION 0. 4070-02 2. 159 327.2 0, 1643E+08 T3?e. 
0. 1430E-03 0.838681 - 12. 70 616.7 271.6 
REGRESSION ON VARIANCE 0. 1364 4, 403 £6. 08 447.9 ~969. 4 
0. 7370-01 3, 532 J 39 343, 8 719, 4 


ESTIMATOR: ##Rho of N(0,4) r.v.s, rhoed.9 using robust Least Squares estisator 


Figure 12. Summary Statistics, Normal Samples. Robust Least Squares. 
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Size 


KS.E 


KURTOS1S 


QUANTILES 


0,010 
0. 625 
0, 080 
0, 100 
0, 250 
0, 500 
0,750 
0.900 
: 0. 950 
0.975 


: 0.990 


20 


0. 7075 
6. B741E-03 
0, 2337 
0. 8122E~03 
0. Kes 
0, D7eE-OS 
~1.7% 
0, 21266-01 


4,733 
0, 1801 


0, 4448E Oe 
0. 1850E-Ce 


0.11% 


0, SOSH Ce 


0. 9394E~01 
0. 3c 


0.2439 
0, 24e2—-Ce 
0, 3969 

0, 2008E—le 


0, 6096 
0. 1098-02 


0. 7726 
0. 6972E-03 


0.8750 
0, 4881E-03 


0. Sead 
0. S7TAE-03 


0.9474 
0. 2724E~03 
0. Bs 
0. 2574€-03 
0, 9691 
0. 29168 -03 


SUMMARY STATISTICS (MEAN/STD) 


WEAN OF REGRESSION ON AVERAGES 0. 9004 


STD DEV OF REGRESSION 


REGRESSION ON VARIANCE 





Figure 13. 


60 100 
0, 8481 0. 8706 
QSST1EO3 =, B81 E~OB 
Q.8784E-01 0. 5942E-01 
0. S766E-03 = 0, S7BRE-03 
0, 1020 0. 6630E-01 
O.4361E03 0, ATITE-03 
~1. 444 “1.132 
O.3T7EO1 =: 0. 24 34E-01 
3. 60 2. 9 
0, 3288 0, 1371 
O.14ebEC = «0 16 16E C2 
O.3949%-02 0. S818E -Ce 
0.533 0. 6828 
O.2BAbE~Ce «0, 2713E-e 
6. 6290 0. 7247 
0.1992 0. 1459-2 
0.6784 0. 7583 
O. 1245-42 3=— 0, LEK 
0, 7314 0.7918 
0.97603 0, 11S 7E-Ce 
0. 854 0. 8391 
O.619EO3 0. 45e5E-~03 
0. 870 0. 8814 
O. 4453-03 = 0. S044E~03 
0.9115 0.9135 
0. S260E~03 0. HC E-OB 
0, 9396 0, 9358 
O.cb78E03 = 0, SESE -03 
0. See 0. 9461 
C.e324E-O3 = 0, CHL -~OS 
0. %12 0. 9539 
O.S461E-03 0, SSHE~03 
0. $33 0. 9616 
0. 3HEO3 0,4732E-03 
0.870% 03 
0, 4623E-Ce 
0. 1273-03 
0. 865cE-01 


0. 1243 


10 
0. 8816 
0, HB3E-O3 


0, 447EE-01 
0, 2470E-03 


0, 4842E -O1 
0, 3107E-03 


0, 9486 
0. COS 7E-01 


1. 364 
0, S237E-O1 


0. 21276-02 
0, 733cEKe 


0, 7467 
0. 1498€-Ce 


0. 7749 
0, SCBSE-03 


0.7974 
0, 1023-02 


0, 8216 
0. 8118-03 


0. 8563 
0, SES4E~03 
0, 6888 
0. 4276E03 
0.9139 
0, 3181E-03 
0, $322 
0, 3178-03 


0. 9415 
0. 4187E-03 


0, 9493 
0. D703 


0. 9559 
0, 4803E~O3 


“2. We 
AAG 
2. S36 
0, 6885-01 
971 


6. 
8 474 


ESTIMATOR: ##Rho of N(0,4) r.v.s, rho=0.9 using Cressie estimator 


200 
0, 6855 
0, 2629-03 
0, SBAGE-01 
0, 25688 -03 


Q, 4110€-01 
0, 232E~O3 


0, MAI 


0, 46S0E-01 


1.235 
0. 3144 


0. SHELL 


0, S36E-~Ce 


0.7711 
0. 2253€-02 


0. 7966 
0. 13848 -Ce 


"9.8152 


0. 8948E~O3 


0. 8340 
0. BASKE~03 


0. 8629 
0. S704E~03 


0. 6908 
0, 0-03 
0.91% 
0. 3831E-03 


0, 9301 
0. M14E-~O3 


0. 9385 
0, 98E~03 


0. 9447 
0. 4342E-03 


0. 916 

0. SS36E-~O3 
12.73 
68. 41 


388, 4 
11.10 


-104, 3 
G2, 2 


23 SUPER-REPLICATIONS 


es bw) 
0, 6918 
O.2416E-03 0.1963 
0, 3338-01 «OL 275-0! 
Q.3317E-03 0, BESKE-~O3 
Q,S18-01 0, 2878-0! 
OQ MIEO3 = 0, B9ITE~O3 
4, 7748 4.6735 
0. 28586-0100, 1 7E-01 
0, $243 0, 8587 
1155 0, 2380 
0. 1448E-O1 =. 2790-01 
0. S41E02 0. 1175E-0! 
0. 7885 0.815 
esbEe = 0. A014 
0. 8117 0, 8299 
0, 165K~CR — 0. 1141€-02 
0. 8269 6420 
0.703 0.85003 
0, 445 0, 850 
OQ 7001E-03 0. 6210-03 
0, 8697 0, 8733 
0.3MEO3 0.4%5E-03 
0, 8930 0, 8948 
O.4140E03 = 0, 2471E-03 
0.9129 0. 9116 
O310%03 0. 
0, $281 0, 9247 
O.MSEO3 0, 31T7E-03 
0. $359 0, 9319 
OC. 37E4E-O3 = 0, 42 78E-03 
0, $421 0.9373 
G.A71GE-03 0, SIGKE~03 
0, $490 0, M3 
O.47SEO3 =: 0, SITE OS 
“20%, -999.9 
HAS, 1551. 
0, 1SSE+OS 8783, 
573.9 eb. 2 
Te. 2 ~1562. 
307.8 1055. 


Summary Statistics, Normal Samples. Cressie Estimator. 
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0, 
0, 9161£-01 


0. T374E-Ce 


0. 16046~-01 


0. $221 
0, 3665E-~03 


0. Se86 
0. 49168 -03 
0, S382 
0, 621% -03 


0. $383 
0, B260E 03 


SUMMARY STATISTICS (MEAN/STD) 


23 SUPER-REPLICAT IONS 


SIZE 20 66 100 1X 200 =x» Rw] wt 
EAN 0. 7600 0, 8699 0. 8854 0. 8924 0. 6941 0, 8965 0. 8974 0. 8988 
O.G871E-O3 O.SIOKE~O3 =O.SAAIE-O3) OO. SSRE-O3 =O. ITE OS =. 2337E-03 OL RSE 03:0. 278-03 
STD 0. 1996 O.9001E-O1 = OG220E-~O1 OO MEREO1 «= OL SBIEE-O1 =O. S3BBE-01 «= OL 27-01 (0, PL 7RE-01 
Q42c8O3 =O BIEO} ACEO} 0.e4KEO} «= OATES} = OL BEE}. 272K «(0 2103-03 
KS.E 0. 2438 O.94SCE“01 =O, BS91E-O1 «=O ME SE-O1 =O. SIBPEO1 «=O, AORE-O1 = OL 274KE-01 90. 21 KE-01 
Q.61SEO3 O.SIESE-O3 «=O. S1KE-O3) =O. PBSSE“O3) =O. CAABE-O3) =O. B7GE~03 «=O. PTFE 0. 2102E-03 
SKEWNESS 0, $218 0. 7% =0, 6651 “0, 4969 0. 438 “0, 4242 0, IKE 0. 3111 
O.7841E-e O.BIOLE-01 =O. 1 706E-01 «= CL IGOME=01 =O. 3I71E-01 =O, 29MSE-01 «= OL MOLTE-OL = 0. EE ~01 
KURTOS1S 1.098 1.289 1.050 0.6774 0.6199 0, 5738 0, S366 0, 8615 
O.3169-01 =O 18-01 «= OU TSREHO1 «= OREO 012K O.6320E-01 = 0.1333 0. 627-01 
SER. COR. O,e2erEe = OL 1SKE~De OUR CeO IOME-O1 «=O. SOSSE~CR-0. 1 7ESE-01 9-0, BOBTE-01 9-0. 28 78E-0E 
O.2BS8EHe =O WeeE-Oe =O. STE «=O 01eEe OL BBE SDR = OL MOSIE-CS OL LI0SKE-O1 = (0, 1342E-01 
QUANT ILES 
0.010 0. 1624 0, 6041 0. 7054 0, 7645 0. 7887 0, 8019 0. 8221 0, 6388 
O.ece-e O.2b0eEde OA2EKe O.cdO7E-de O.c0lE-e O.208%-Ce 0.20RRE-He 0.131% 
0. 625 0. 2810 0, 6630 0, 7435 0, 78% 0, 8099 0, 6212 0, 8383 0.8514 
O.1778Ee 8 aA1SS8Ee =e IMME-OeO. 1BKE-Ce S(O BSE-Ce =O. LOATE-QO 2 0. 1077E-Ce 
0, 50 0, 3800 0. 7065 0.7743 0. 8107 0. 8247 0, 862 0. 0498 0. 8609 
0.189%-0e =O. 1218E-e «OX L1GAE~Ce - KL0E-~03 FOO} «= O. 1108E~CR OL BROKHE~O3 =: 0. B42 E03 
0. 100 0. 4882 0, 7513 0. 8047 0. 8322 0. 8428 0.8523 0, 8616 0. 8703 
Q.14S7ECe 0. 7031E-03 0, 823-0 TR6B8E~O3 0.618303 =: BISE-O3 «=O. SHES «= «0. SEE -03 
0. 250 0. 6500 0. 6191 0, S482 0, 8646 0.8702 0, 8761 0, 8803 0. 8847 
0.10072 OL SCSTE-O3 ORES OE} OLDIES «= OL ASE = OL CME 0, ARIE -~O3 
0. 300 0, 73¢8 0, 8810 0.8917 0. 8964 0. 8973 0, 6991 0, 8992 0, 9000 
O.77HEO3 = 0. 441 2E-0B ASOE-O3 —O.SST7E-O3 = OL BREHE-O3 = OL RAGEO3 «= OL ASSE-O3 0. STE -03 
0, 70 0. 93 0, $325 0. $282 0. $236 0. S211 0, 919% 0, 9162 0, 9139 
O.ES34E-03 — Oe77eE 03 ( APABE-O3 0. STE 03 OO. SBAE-O3 = OAKES} «= OL TCE 0, HGE-~O} 
0. 900 0. 9840 0. 9748 0. S85 0. 9475 0. 9406 0, 9369 0, $300 0. $257 
O.79I%-O3 =O, ABBBE-O3 sO. SK 7BE-~O3 =O SIT7E-O3) «=O. OBAE-O3 OL EBCE-OS OL MESSED = 0. 42E +O} 
0. 950 1.023 0. 9984 0. 9763 0. %e0 0.53 0, 9480 0, 9395 0. R21 
O.G711E-O3 = O,GASAE-O3 OL G317E-O3 =O. BIE 03. 20GAE-03 OL ATBSE-O3 «= OLEH = (0. ABE -~O3 
0.975 1.4 1.017 0. 9912 0.9738 0, KAS 0, 3580 0. 9463 0, 9387 
0.700CE~O3 0, TOAKE~O3 , 0.921803 «0. 7890E-~03 OO. BOOKS «OL ESKCE-03 «= (0. 5863E~03 
0. 990 1.069 1.036 1.009 0. 9904 0. 97Te 0.9701 0. 9575 0.9473 
Q.il2see =O. BS74E-O3 sO. BB72E-O3 =O OEE T7EE-Ce (OL LOISE-Ce =O eB4E-Ce = 0. 100E-Le 
MEAN OF REGRESSION ON AVERAGES 0. 9004 ~0. 7042 -%. 85 2082, 677.9 
0. BA49E-O3 0. 4236 be, 88 3165. 1383. 
STD DEV OF REBRESSION 0. 4E54E-02 2.578 398. 9 0, C01BEHS 9077. 
0. 11€-03 0. 6555-01 11.09 594.0 273.3 
REGRESSION ON VARIANCE 0. 1029 4. 343 ~42.67 30.5 670.0 
0. 1070 4,793 73, 48 455. 3 63.1 


ESTIMATOR: ##Rho of N(0,4) r.v.s, rhoad.9 using soment estimator 


Figure 14. Summary Statistics, Normal Samples. Moment Estimator. 





SUMMARY STATISTICS (MEAN/STD) 


23 SUPER-REPLICATIONS 


SIZE & 60 10 1X 200 & Rw 3 
FERN 0, 7233 0, 8403 0. B641 0. 8764 0. 6816 0. 6856 0. 8894 0, 8332 
O.47246-03 0,28206-03 O.C8ABE-~O3 O.37608-03 39, HOLES. CEES 1 9SME-03 0. 23HKE-~03 
STD 0, 1832 O. 7673-01 O.SS21E-O1 O.4080€-01 O,SAAEE~O1 OC, ROM0E-O1 0.2312E-01 39 0. OC E-01 
O.37S4E-03 =O 1Q0E-03 sO. OSSAE-03) = 2372E-03 0. 218CE~+O3 OL RKE~0_ OL OME 0 161-03 
ASE 0. 2504 O.S720E-01 O.G419-01 =O. 4681E-O1 «=O. SS07E-01 =O. UB7E-O1 «=O. P7OKE-O1 (0. 2 41E~O1 
O.S201E-03 0,3522E-03 0,36066-03 0, 5588E-03 8 0.2857E-03 =, SP10E-03 =O. ONE -03 sO. LAG AE-03 
SKEWNESS ~1,044 “1.159 1.039 0, 8300 —. 7417 0.6748 0, 6237 0, 4724 
O. 1045-01 =O. 2239-01 «=O 205SE-01 (OL IS7BE-OL = «OO SBASE-O1 =O 273IE-O1 «=O A1SME-O1 = 0, SISSE-01 
KURTOS1§ 1.543 2.201 1,842 1.0% 0. 8613 6, 6386 6, 6491 0. 2946 
0. 4246E-01 = 0, 1211 0.1311 0. 76%E-01 0, 2004 O.S390E-O1 = 0. 1485 0. 1000 
SER. COR, O.937CE-Cl =O OAGE-Ce OL SIBLE“ AMER OL ALAS CR OLISISE-O1 =O. ISTSE-01 0-0, HBSHE-O3 
O.190E~2 =O, SBA, SESHE-Me «=O. BOOIE-Oe =O. B7BHE-Oe OL IOSSE-O1 = «OL LOGKE-O1 = «0, 181 BE -01 
QUANTILES 
0.610 0. 1621 3 0.6995 0. 7570 0. 7813 0. 795 0.8160 0. 659 
‘ O.2081E~e 0.c287E~CR =O S1BE~“R = OL OOSESOR OL BRE 2127E-Ce OL ALE 
0, 025 0. 2788 6535 0.7357 0.7819 0. 806 TJ be’) 0, 4333 0. 6481 
O.1S2EC2 OL MAAE“CR OL ALOE ~C2 OL IBSESCR Meee LASBE~C2 0, KGTE-03 = 0, KOE -03 
0. 0 0. 3738 0.6553 0. 7647 6, 8012 0. 8184 0. 8306 0. 8447 0. 8570 
0.16252 39 0, 1228E-e SO, FIONE-+-03 OL ACTED sO. BS7HE-03 = 0. STBSHE-OS «OO BS7EE~O3 = «0, 7BS8E-03 
0, 100 0. 4807 0. 7382 0. 7339 0, 224 0. 8382 0, 8482 0, 8561 0. 6666 
0. 1220-02, BBOE-03 0, RE~OS_iOL BHOS CL ESGE-O3 iO. 70BSE-~O3 OL SISKE-03 0. SSE +03. 
0.230 0. 6330 0. 8001 0. 8354 6, 8530 0.8613 0. 8675 0. 8739 0. 8865 
0.9068E-03 sO. SO74E-03 = (0. SBKKE-03 =O. STOKE-OS ss ( MBCLE-OS OO. ARE sO RE-OSS . HHE-O 
0. 500 0. 7644 0. 8727 0. 8820 0. 8856 0. 8890 0, 8321 0, 8946 
0.670803 O.41128-03 O.33248-03 sO AABIE-03 = 0. SESE-~03 =, SHORE OQ 272K-~03 0.703 
0. 750 0, 8590 0. 82 0. 9019 0. 9054 0. 9067 0.973 0. 9078 0. 9076 
0.36706-03 =O, 0C1E-03 =O. HOES. eHHEHO3 =O. SES =. OSUTE-O3 = OL SIGE~O3 = 0. 250 7E-03 
0. 900 0. $260 $238 0. 9236 0. $229 0, $223 0. $217 0.9192 0. 9182 
0. 4399-03 oO. S01KE-03 9 0, SESBE-O3 =O. HENS 0. C3 E-OD 0 So O. 334-03 0. HACE-~LB 
0. 50 0. 9628 0.3378 0, 9347 0. 9221 0. 9302 0. $294 0. $260 0. Seal 
0.S385E-03 OO. S1BKE-Q3 0. S7KE-N3 «=O THEO ISEB OL ORES =O OSKE-OS 0. ST HE-OR 
6.975 0. 9942 0. 9484 0. 9429 6, 9394 0.9363 0. 9354 0.9314 0. $285 
O.6697E-03 =O. 3677E-03 sO STIBE-O3 OL MISSE-O3 0. 423K OL S70RE-03 OOO 0. HASTE 
0.99 1.033 0.911 6.9518 0.9474 0.9434 0. $421 0.9375 0.9344 
O.1131ECe O.6075E-03 8 O.4491E-03 OL HITHE-~-O3 = ASIN OLEASOE-OS 0.876430. 61 NEO} 
MEAN OF REGRESSION ON AVERAGES 0, 9003 -4.089 73. 38 “S51. -1612 
0. 7216E-03 0.370 34. 64 1196, 
STD DEV OF REGRESSION © 0. 4068E~02 2.230 342. 8 0. 1728E +05 7764, 
0. 1257E-03 0. 7074€-01 11.24 382, 0 ebA.& 
REBRESSION ON VARIANCE 0. 1247 3.3% 49.39 401.4 “888, 4 
0. B608E-01 3. 871 39.37 37.2 766. 8 
ESTIMATOR: #8Rho of N(0,4) r.v.s, mhomd.9 using Priestly Estimator 
#24 WIDEST Y VALUES FOUND: YMINe-1.130 - YRAre 1.368 te SMTB eH 
#24 THIS WAS A RESTART RUN. NSR START/END@ 16 23 


Figure 15. Summary Statistics, Normal Samples. Priestley Estimator. 
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sample size) of these samples indicated by the individual plots, the run of 23 
super-replications was not repeated. Observe that once familiarity is gained with these 
plots, a great deal of data can be obtained by the analyst in a very short time. It does, 


however, take some time to build these simulations. 


B. NON-NORMALLY DISTRIBUTED SAMPLES, CORRELATED. 
1. Parameter |] = 3. 

The next series of SIMTBED plots describes the behavior of the four estimators 
for strongly positively correlated /-Laplace variables, with p approximately 0.9. Due to 
the number of runs of this distribution, and the lower efficiency of the random number 
generators when generating Beta and Gamma distributed variables, only three super- 
replications were performed. 

Figure 18 is a color combined estimator plot from SIMTBED of the four esti- 
mators, for sample distributed according to the BELAR(1) process, with / equal three. 
First, observe that now, all four estimators are not asymptotic to the same value. The 
sample distribution has begun to depart from Normality, and the estimators are begin- 
ning to exhibit corresponding changes. The moment and Priestley estimators appear to 
be approaching the true value of 0.8972, or very close, while the Cressie estimator has 
definite bias, and the robust regression estimator 1s showing slight asymptotic bias. 

With respect to small-sample bias, the two estimators that seem to behave well 
asymptotically also seem to have the worst cases of small-sample bias, as indicated by 
the boxplots of sub-sample sizes 20 and 60. 

Figure 19 is an individual estimator plot for the Cressie estimator. From this 
plot the asymptote of the regression can be seen to disagree with the true value, and the 
boxplots demonstrate the small-sample bias for this estimator. A comparison of the 
standard deviation with the mean squared error also shows the asymptotic bias. The 
standard deviation of the samples starts at 0.1839, at sub-sample size 20, and steadily 
decreases to 0.01520 as the sample size increases, but the MSE does not approach the 
standard deviation, indicating some inherent difference between the true serial corre- 
lation and the samples. The MSE decreases from .2322 to .03578 at sub-sample size 150, 
and then remains relatively constant with respect to sample size. This variability is thus 
attributed to the bias, not to the random variations of the estimator’s calculations on the 
random samples. Further, from the regression asymptote and its standard deviation, 
we observe that the regression asymptote of 0.9327 is more than ten standard deviations 


(0.003479) removed from the true value of .8972; the standard deviation of the regression 
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SMTB COMBINED ESTIMATOR BOXPLGTS: SAMPLE SIZE: 6000 NO. REPLICATIONS: 20 DEG REGRESSION: 4 
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SAMPLE SIZE: 
TIMATOR 1; MEAN: 


STD: 
STD MEAN: 


BSAMPLE SIZE: 
iTIMATOR 2: MEAN: 
STD 


STD MEAN: 


BSAMPLE SIZE: 

TIMATOR 3: MEAN: 
STD: 
STD MEAN: 


BSAMPLE SIZE: 
TIMATOR 4: ae 


STD MEAN: 


TIMATOR 1: ##fho of N(0,4) r.v.s, 


| --——+0um 
’ — eae = + OW 


= 


20 60 
-0. 2815E-02 _-0. 4349E-0e 
0. 2530 
0.3cb6E-e 0, B35BE-Ce 


0 60 
—0.SB87E-01 -0. 2345-01 
0. 3686 0. e0e1 
0.473902 = 0, 45e0E-0e 

20 60 
—0,5376E-01 = -0. 1855-01 


0.2227 ; 
0.287-02 0. 29ebE-Ve 


20 60 
0, S368E-01 = -0. 1857E-01 
0. 2234 0.1311 
0.c6B3E-0e =: AIS IE-Ce 


d 


» SO4E—Oe 
0. 8613E-01 
0. 4671-02 


0. 2874E-0e 


rho=0,0 using robust Least Squares estimator 


TIMATOR 2: ##Rho of N(0,4) r.v.s, rho=0.0 using Cressie estisator 
TIMATOR 3: ##Rho of N(0,4) r.v.s, rho=0.0 using moment estimator 
TIMATOR 4: ##Rho of N(0,4) r.v.s, rho=0.0 using Priestly Estisator 


Figure 16. Combined Plot, Normal Samples. Here, Rho= 0.0. 
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SUBSAMPLE SIZE: 60 SO 
ESTIMATOR 1: MEAN: -(), 8489 ~), B78 -). 8954 
STD: 0. 1337 0, 6939-01 0, 2S07E-01 
STD MEAN: O.1726E-e 0,15S26-02 0.1S559€-Ce 
SUBSAMPLE SIZE: 3 
ESTIMATOR ec: MEAN; ~0. 8617 ~H, 8840 ~0. B35 
STD: . 2cbé 0.1230 0. S040E-01 
STD MEAN: 0, 292eBE Ce G.27HE-02 =: 0. 27 KE -Ne 
SUBSAMPLE SIZE: 20 60 300 
ESTIMATOR 3: MEAN: -0), 9162 -6. 9137 -0. We3 
STD: 0.13594 0. 7322E-01 0. 2453-01 
STD MEAN: 0,1800E-02 OC. IE37EOC 0. 4330E-Ce 
SUBSAMPLE SIZE: 20 38 
ESTIMATOR 4: MEAN ; -~(), 8544 ~), BBIe ~~, B45 
STD MEAN: 0. 1S06E-0c 0, 1L353E-0c 0, fe1S-le 


cSTIMATOR 1: 
ESTIMATOR e: 
ESTIMATOR 3: 
ESTIMATOR 4: 


H#Rho of Ni0,4) r.v.s, rho=-.9 using 
#4fho of N(0,4) r.v.s, mhos-.9 using Cressie estizator 
+#Rho of N(0,4) r.v.S, rho=-.9 using aoment estimator 

#4Rho of N(0,4) r.v.s, rhoe~.9 using Priestly Estimator 


#+4 WIDEST Y VALUES FOUND: YMIN=-2. 059 
#44 THIS WAS A RESTART RUN. NSA START/END= 


Figure 17, 


SAMPLE SIZE: 


- YWAX=0.5137 
! 


6000 NO. REPLICATIONS: 


en ie RS AE ES Sy aE me DS LT TN 


aH SMTB H+ 
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20 DEG REGRESSION: 


robust Least Squares est imator 
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Combined Plot, Normal Samples. Here, Rho= -0.9. 





Figure 18. 





SMTE COMBINED ESTIMATOR BOXPLOTS: 
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c0 60 SO 
§ 20 Rie 4) 
ESTIMATOR 1: MEAN: 0. 8639 0. 8971 0. 82 
STD: 0. 1340 0. 5989-01 0. 2411E-01 
STD MEAN: 0. 1730E~0e 0. 133% 0. 1307E-Ke 
SUBSAMPLE SIZE: 20 60 Rie ¢) 
ESTIMATOR e: MEAN: 0.7355 8868 0. 3270 
STD: 0, 1839 0, 6012-01 0. 1785€-01 
STD MEGAN: 0.e374€-0e 0. 1344E-0e 0. 9679E-03 
SUBSAMPLE SIZE: 20 Ris ¢] 
ESTIMATOR 3: MEAN: 0. 6857 0. 8285 0. 8829 
STD: 0. 1944 0. 8405E-01 0. CE7SE-O1 
STD MEAN; 0. 2510€-0e 0. 1879E-0e 0. 1453E-Ve 
SUBSAMPLE SIZE: 20 §0 Rv) 
ESTIMATOR 4: MEAN; 0,6913 0. 8264 0, 8844 
STD: » 1950 » $382E-01 0. 2664E-01 
STD MEAN: 0. 2S18E-0e 0, 1874-02 0. 1445€-0c 


ESTIMATOR 1: HHERHO(, Gs Be SortBeta L laplace AR r.v.s, A. 82, L= 3 Using Robust Least Squares estimator ({>4. 2) 


ESTIMATOR es 


H+#Rho(, 
ESTIMATOR 3: #+#Rhol, 8972) of SertBeta L laplace AR r.v.s, AR. 82, 


SAMPLE SIZE: 


6000 MO. REPLICATIONS: 


20 DEG REGRESSION: 


SqrtBeta L laplace AR r.vs., AF.82, L= 3 Using Cressie Estimator 


L= 3 Using 


moment est isator 


ESTIMATOR 4: #49Rho(.8972) of SqrtBeta L laplace AR r.vs., f=. 82, L= 3 Using Priestly Estimator 


+++ WIDEST ¥ VALUES FOUND: YNIME-1.033 
#39 THIS WAS A RESTART RUN. NSR START/END= 
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Combined Plot, L-laplace samples. Here Rho= 0.8972. 
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coefficients was determined from the 20 replications as part of the generation of this 
plot. 

The summary table for all super-replications (of which there are three) involving 
the Cressie estimator is shown in Figure 20. With super-replications, the MSE 1s ob- 
served to actually increase, and does not approach the standard deviation at all. The 
bias of this estimator under conditions of only slightly non-Normal sample seems ex- 
treme. 

Figures 21 and 22 show the similar behavior for the robust regression estimator. 
While not as extreme in the case of asymptotic bias (yet) as the Cressie estimator, the 
robust regression approach seems to approach the wrong value as sample size increases 
(bias). Again, the MSE decreases, then reaches some (relatively) constant value, rein- 
forcing the case for asymptotic bias. It is noteworthy here to observe that the largest 
sub-sample size we use is 500, which seems like a reasonable sample size for which to 
get an acceptable value of serial correlation. Shortly we will observe the behavior of 
robust regression for even larger sub-sample sizes. 

Figures 23 and 24 show the behavior of the moment estimator under these 
sample distribution conditions (/ = 3, strong positive correlation). Here we see a large 
small-sample bias, indicated by the boxplot of sub-sample size 20 falling off from the 
asymptote line, as well as from the tabulated means, standard deviations, and mean 
squared errors. With these simulation parameters (overall sample size of 6000, and 20 
replications), the regression asymptotic value of 0.8889 for the moment estimator is still 
accurate to two decimal places (with normal rounding). This, combined with the be- 
havior of the MSE for this estimator, would indicate the estimator is asymptotically 
unbiased (although it may not approach the correct value as rapidly as would be the case 
under conditions of Normal samples). From Figure 24, we can see the regression 
asymptote after three super-replications and observe an even closer value to the true 
correlation of 0.8972. We conclude the moment estimator is unbiased for this sample 
distribution. 

The simulation behavior of the Maximum Liklihood Estimator (MLE), i.e. the 
Priestley estimator, is depicted in figures 25 and 26, again, for the parameter / equal to 
three, and a chosen for strong positive correlation. By a similar analysis, we conclude 
this estimator is also unbiased, but has a large small-sample bias, just as did the moment 


estimator. 
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SAMPLE Sile {his 6000 NO. OF REPLICATIONS iM): 2 DEGREE OF REGRESSION (D): 4 
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i 0 | 
| 266 i 
i | 
i | 
0.3 =< | 
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20 60 100 1350 rat en Rw d 
SUBSAMPLE 
SIZE 20 60 100 {0 200 230 30 wet) 
MEAN 0.7355 0. 6868 0. 9068 0.9169 0.9219 0. 9239 0.9270 0.92% 
STD 0. 1839 0.601cE-01 0. 4106£-01 0. 2988E-01 0, 2S06£-01 0. 2056£-01 0. 1785-01 0. 15e0E-01 
STD MEAN O.237T4EOe = sO LS4ME“OP OL LBSE-O2 =O IOSKKE 02 = «0 1023E-02 = s«0, S3B3E~03 = (0. HTH-O3 = s_«O0« 981 E-03 
M.S.E 0. 2322 0.6101E-01 O.4217E-01 O,3578E-01 O.351%-01 0.35¢8E-01 0.3472E-01 = «0, SSB1E-0! 
SKEWNESS “1.724 ~1,4788 ~1.2877 -0, 8721 -0.8715 -0.6517 -0. 6053 -1.01588 
KURTOS1S 4, 4780 4, 0808 2. 7334 1.3120 1.0142 0.9154 0. S622 3.0215 
MEAN OF REGRESSION ON AVERAGES 0, 9327 ~1.161 ~241,5 0. 1120€ +05 OR 
VARTANCE OF REGRESSION 0. 1211E-04 4,110 0, 1120E +06 0. 3051E +09 0. 63066 +08 
STD DEV OF REGRESSION 0. 347% -0e 2.027 334.6 0. 17476 +05 7341. 
REGRESSION ON VARIANCE 0, 4137 -14.0 216.4 ~1286. 2781. 


ESTIMATOR: #4#Rho(, 8972) of eee L laplace AR r.vs., Az.8e, Lu 3 Using Cressie Estisator 
VERTICAL SCALE: NS oes 


Figure 19. Individual Plot, L-Laplace samples. Cressie Estimator. 
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S17E 


STD 


K.S.E 


KURTOS1S 


SER. COR, 


QUANTILES 


0.010 


0. 025 


0.050 


0.100 


0.2% 


0.3500 


0.750 


0. 900 


0. 30 


0.975 


0. 990 


MEAN OF REGRESSION ON AVERAGES 0, 9354 


20 

0. 7524 
0. 146E Oe 
0.1911 
0. 36.32E -02 
0. 23% 
0. 3618E-Ce 
-1.8e 
0. 1059 

6.212 
0. 8525 


~, ESSE~0E 
0, 


POAGE-02 


0. 7687E-01 
0. 1814E-01 


0.2431 
0. 108%-~01 


0. 370! 
0. 725% 
0, 5037 
0. 6074€-Ce 
0.6773 
0, 1981E-03 
0. BO4E 
0, 2448E-03 
0, 8855 
0. 7422E-03 
0. $299 
0. 6628-03 
0, $482 
0. S4cE“O3 
0, 9604 
0.217803 
0. 9707 
0. 2251E-03 


STD DEV OF REGRESSION 


REGRESSION ON VARIANCE 


SUMMARY STATISTICS (MEAN/STD) 


60 100 
0. 6873 0. 9075 
O.41EH3 0.01%-~03 
0.607001 0. 4042E-01 
0.646463 0. SCS0E-03 
O.6151E-01 0, 4173E-01 
0.669903 0,268%-O3 
1,616 1.18 
0. 1466 0. SA08E-01 
S» 401 2.3557 
1,646 0.2105 
O.1576E-O1 =: 0. 21 93E Ce 
O.149%E01 = 0. 212 18-01 
0. 6806 0.7779 
0. 3XO6E-0e = 0, 43EKE CR 
0. 73% 0.8118 
O.S0IS-02 0. 205%E-Ce 
0. 7763 0.8304 
O.11SeEOe = 0. 21 1E-03 
0.8113 ; 
OIL 0. TIATE-O3 
0, 8585 0. 6868 
O.6534E-03 0, LISSE CR 
0. 8999 0. 9148 
O.7477E-03 0. 8310-04 
0. $299 0. $382 
0.108E03 0, S390E-03 
0. $0 0.9517 
O.7287E-03 0.6016E-03 
0. 9597 0. 9597 
O.6708E03 0.81S55E-03 
0, 363 0. %52 
O.4831E-03 OO. 1121E-Ce 
0.9733 0.9717 
O.9364E-03 0, 1ebBE-Ce 
0. 1516E-02 
0. 234&-e 
0.28XE~03 
0. 1420 
0. 1400 


1X0 
0. 9163 
0. S40E-O3 


0. 038E-01 
0. 767-03 
0. SS1E-01 
0.5178E-03 


~, 8993 


0. 857801 
1.207 
0. See 


~0. 24%E~0! 


0. 91 4€-Ce 


0. 8272 
0. B56 7E-0e 
0, 8443 
0. 2b&cE Ce 


0. 6610 
0. 1791E-€e 


0. 8734 
0, WEE-03 


0.89923 


. 0. BEOTE-03 


-3, 


1, 


0. 9212 
0. 37e2E-~03 
0, 9388 
0. 1171803 
0, 9507 
0. 40303 
0. 971 
0, 3338E-03 
0, $32 
O.2e71H1E-03 


0. 9669 
0. 8H1E03 


2 
0.9717 


716 


0.2114 


1. 998 


6. 


245 


200 
0.9218 
0. KEHE-H3 
0,201 
0. 3038E-04 
0. 10-0! 
0. 232K+4O3 


~0, 8168 


0. 641%-01 


0. 9403 
0.3114 


0. 699% Ce 


0. 1930E-01 
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0. 5977E-2 
0. 8646 
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0. 8760 
0. 12S5E-Ce 


0, 6878 
0. 1741E-Ce 
0. 9072 
0. 125180 
0, $246 
0. 1SS4E-03 
0, 9399 
0. 3172-03 
0. 9508 
0. F45% 03 


0. 9561 
0, 2334E-~O3 


0, %03 

0. 2BSeE-~O3 

0. 9656 

0. G46 7E-03 
47,83 
155. 0 
278. | 
40.05 


36.17 
34, 89 


3 SUPER-REPLICATIONS 


ESTIMATOR: ###Rho(. 8972) of SortBeta L Laplace AR r.vs., Az. 82, L= 3 Using Cressie Estisator 


Figure 20. 
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O.93I1E03 0. 42H~O3 
0.217901 0. 1804E-0! 
6200EO3 (0, 32.37E 03 
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O.S7BE4Q3 = OL 1ASEOB 
~~, 7408 ~, SHES 
0. 4566&-01 = 0, 1OG1E-01 
0. 7776 0.3729 
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0.5 0, 9529 
0.9%B4EO3 0, 480E-03 
0. 9590 0. 9561 
0.12442 0,629%&-03 
0. %39 0.9614 
O.1B1GEC2 = 0, BOAIE-03 
- 81. -1280, 
7863. 3483, 
0. 1442E+05 6547, 
e147, 378.8 
-197, 8 Sia: 2 
oo1.? 1197, 


Summary Statistics, L-Laplace samples. Cressie Estimator. 
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SUBSAMPLE 
SIZE 20 60 100 150 
MEAN 0. 8639 0.8971 0. K40 0. 068 
STD 0. 1340 0. S98%-01 0, 4403E-01 0. 3297E-01 
STD MEAN 0.17306-02 0.133% -02 0.1271E-02 0. 1166E-0c 
4.5.6 0. 1381 0.598% -01 0, 44566 -01 0, 3434E-01 
SKEWNESS -1. 8089 -1, 1840 ~0. 7870 ~0. 7609 
KURTOSIS 6.7212 "3, 7834 1.0334 2. 3463 
MEAN OF REGRESSION ON AVERAGES 0.9143 ~2, 144 
VARTANCE OF REGRESSION 0, 8933E-05 2. 465 
STD DEV OF REGRESSION 0, e38% Oe 1.570 
REGRESSION ON VARIANCE 0.ec016 0.2733 
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ESTIMATOR: ##4Rhol. 972) of ee L laplace AR r.v.s, Ae. 82, Le 3 Using Robust Least Squares estisator (C=4.2) 
VERT] YMIN = 0.2176 


CAL. SCALE: 
YX = 1.181 


Figure 21. Individual Plot, L-Laplace samples. Robust Least Squares 
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SUMMARY STATISTICS (MEAN/STD) 


3 SUPER-REPLICATIONS 


30 


SIZE 20 60 100 130 200 a wt) 
MEAN 0. B62 0. 6978 0.933 0.9077 0. 87 0.093 0. 9088 0.910 
O.129ECE = OL CRHE-OS =“ ACRES =O 78RE-O3 = LOSER. SSE -O3 =O SK7E-03) =O. BOTSE-~O3 
STO 0. 1308 0.G008E-01 O.4418E-~01 O.3387E-01 0.2326E-01 9 O. ESIE~01 =O. 22BOE~01 0, 184 3E-01 
O.1908E-02 0, 1090E 02, 1BME-03 «=O. OHE-O3 = «0. O70E-~03 «0. 72BSE-O3 OLE BSE-O3 =O SAKE 0 
KS.E 0. 1342 O.6009%-01 0. 4461E-01 =O. SUABE~O1 =O SISOE~O1 =O. SOLE-~O1 =O. SKIE~01 = 0. 22 4KE~01 
O.2054E-Ce =O. 108ME“Ce IES FEDS. R1SE-O3) = OSH sO. AGESE-O3 0. SOSIE-03 
SKEWAESS 1.718 -1,00 ~0. bel2 ~0. 53970 0, 6678 0. $63 0, 4949 0. 6070 
O.SS%~O1 0.1236 O.2S521E~Ot O.832E-Ol O.1812E-01 O.2234E-01 O,2328E-01 9s 0. 14 
KURTOS1S 6. 041 2. 497 1, 424 1.106 0, 9466 0. 6101 0, 5894 0.65% 
' 0. 3734 0. 6233 0. 1929 0. 6200 0.2129 » 1893 0. 1874 0. 3188 
SER. COR, ~O,6327E-02 (O 10RBE-C2 ~O.1936E-01 «=. PESSE-O] =O. ASCIE~CR =~. 1OHE~01  ~0, SBABE-~01 9-0. SOKE-~01 
O.430eEDe 90.1 4SGE~O1 =O 12HE-~O1 =: 0. PSOE -~O O.2317E-O1 O.eB77E~O1 «0. 7375E-0 (0 ALT AE~O1 
QUANT ILES 
0.010 0.4119 0. 7087 0.7703 0.8073 0. 8260 0. 8310 0. 8419 0.842 
O.1300E~01 (O.9724E-O2 (OBB TAE-C2 eM e SSBBE“Ce OES 2S BOSIE~O2 3=s_s«0. GOH E-€e 
0. 025 0. S322 0. Mel 0. 8027 0. 8308 0. Bed 0. 6501 0. 8587 0. 8686 
O.4e40E-O2 O.4486E~02 O.1326E-e 0.677003 =O c1O7E-Ce =O 70KE~CE = BEE = «0, 294EE C2 
0.050 0. 6204 0.7875 0, be24 0. 8493 0.8545 0. 8638 0. 8688 0. 8763 
O.SeibE-02 O.SSS1E-Ce O.e0beE-e 0.2583E-e 0.16382 O.2088E-0e 0, EA0KE-03  KHE-Ce 
0.100 0, 7087 0. 220 0, 8463 0. Bb42 0.8702 0. 8754 0. 8796 0. 8863 
O.4647E-O2 90, 1252E-0e i ATBCE-O3 =O HABE-CR CO. OOME-C2 sO. SBIE-Ce 2s «Ow I 7beE-de 2s“. 1b20E-Ce 
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0.11902 =O, 9445E-03 = OL ESBBE-Q3 =O ISITEOe =O. 1BOEE (0, STE HAEO3 = 0, HITED 
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MEAN OF REGRESSION ON AVERAGES 0. 9080 1.238 ~281.7 0. 1293E+03 S584 
0. 3606£ 02 e. 097 301.6 0, 1440€ +05 6301 
STD DEV OF REGRESSION 0. 37K 1,775 271.0 0, LS74E+08 6189. 
: 0. e371E-03 0, 1592 23. 08 1207, 327.7 
REGRESSION ON VARIANCE 0.3316 6, 580 9. 3 476.7 916.9 
0. 1480 5. 323 62. 03 464.5 908. 5 


ESTIMATOR: ###Rho(, 8972) of SqrtBeta L laplace AR r.v.s, Ax. 82, L= 3 Using Robust Least Squares estisator (Ce4. 2) 


Figure 22. Summary Statistics, L-Laplace samples. Robust Least Squares 
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SIZE 20 & 100 1X0 200 rae) 30 00 

MEAN 0. 6857 0. 8285 0, 8541 0, 8697 0.8769 0. 6844 0. 8829 0, 6880 

= 0,.84056-01  0.60408-01 O.4341E-01 0.393661 4 89=— 0, WOBOE-01 i, OG 7SE-O1 = (0. PHO -0 


TD 0. 1944 . 
STD MEAN O.eS10E-0e = O, 1B7HE-O2 OL 17ARE—Oe =O IS35E-~Oe =O BO7ED2 =O IAOKE-O2 =, 1AS3E-O2 = «0 1478E-0P 
M.S.E Bs 0.2873 0. 1086 O.74CCED1 «=O. SISKE-O1 «=O M427E-O1 = 0. 3337E-01 (0. OSS! (0. 2 4ESE-01 
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STD DEV OF REGRESSION 0. 4538E-02 2.192 325.6 0, 1834E+05 7H 
REGRESSION ON VARIANCE 0. 79% 25. 45 3%. 4 “230, 4731. 


ESTIMATOR: ###Rho(. 8972) of ape L Taplace AR r.v.s, A=.82, L= 3 Using soment estimator 
VERTICAL SCALE: me z en 
a a 


Figure 23, Individual Plot, L-Laplace samples. Moment Estimator. 
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3 SUPER-REPLICATIONS 


ESTIMATOR: #t#Rho(.8972) of SortBeta L laplace AR r.v.s, Ae.8c, L= 3 Using moment estiaator 


Figure 24. 
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Summary Statistics, L-Laplace samples. Moment Estimator. 
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ESTIMATOR: ###Rho(. 8972) ik i L laplace AR r.vs., A=. 82, Le 3 Using Priestly Estiaator 
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25. Individual Plot, L-Laplace samples. Priestley Estimator. 
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3 SUPER-REPLICATIONS 


ESTIMATOR: ##8Rho(.8972) of SqrtBeta L laplace AR r.vs., A=.82, Le 3 Using Priestly Estimator 


Figure 26. 
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Summary Statistics, L-Laplace samples. Priestley Estimator. 





2. Parameter! = 1. 

This set of parameters is the first encounter with the fact that the random gen- 
erators, for large samples, will generate one or more numbers which are smaller than 
(closer to zero than) the smallest number representable in the Ryan-McFarland Fortran 
compiler for micros. The number then becomes a NAN (Not A Number) and propa- 
gates through the computations as ????????, Figure 27 is a color combined SIMTBED 
plot, and it shows the undefined results which ripple through all calculations when an 
invalid number is returned by the random number generator. This is believed to result 
from an underflow error because the parameters of the underlying probability distrib- 
ution that we are asking the FORTRAN subroutines to generate are very small. This 
results in random numbers generated which are very close to, but not equal to zero. The 
random number generators must perform transformations involving logarithms and 
square roots to generate these Gamma and Beta distributions, and when the parameters 
become very small, and the generators are operated very frequently, as they are with 
SIMTBED and these simulations, it happens that an underflow occurs and an invalid 
result is returned. This ripples through every mathematical operation and appears in the 
results, an example of which is Figure 27. In this particular example, the parameter / 1s 
set to one, or very nearly one (0.95 was used to try and circumvent the problem in this 
particular example). Since there are two Beta random streams required to generated the 
l-BELAR(1) process, with parameters (o/,(1-a)/), it is true that when / 1s one, and we 
want either a high or low correlation, then either « or (l-~) will be small. This causes 
the Beta generator (which generates Beta numbers as the ratio of Gammas) to under- 
flow. This is a rare event, but the number of operations of a random number generator 
by SIMTBED is extremely large (they are at the heart of the statistical simulation 
process), and only one occurrence is needed to invalidate the entire simulation run. For 
these reasons, we were not able to obtain acceptable results for this parameter of the 
BELAR(1) process. Every available random number generator was tried, and all of them 
have problems generating Gamma random numbers with very small parameters. 
Therefore, we continue with the next case. 

3. Parameter! = 0.4. 

This case did not exhibit the type of random number generator problem de- 
scribed above. Figure 28 is the color combined estimator plot for the case of / = 0.4, 
with strongly correlated BELAR(1) samples. From this plot it is immediately obvious 
that there is a difference in the asymptotic behavior of the estimators. It can be seen 


that the robust regression approaches 1.0, when the true value is 0.8954, and further, 
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SUBSAMPLE SIZE: 20 60 3 
ESTIMATOR 1: MEAN; 0. 9180 0. 9548 0. 9708 
STD: 0. 1160 0.4408E-01 0. 11736-01 
STD MEAN: 0.1497E-02 = «0. SBS7E~03 ~=—s_s«O0. BEE -03 
SUBSAMPLE SIZE: 20 60 3 
ESTIMATOR 2: MERN: 9229999999299999299999979997 =~ 0, 9676 
STD: 9929999797929792299979797797_— 0. 91 B6E-0e 
STD MEAN: 9999999999999999999999799977_«— 0, ASTIE-O3 
SUBSAMPLE SIZE: 20 60 3 
ESTIMATOR 3: MEAN: 0.65955 0. B228 0. 8810 
STD: 0, bee 0.9387E-01  0,3732eE-01 
STD MEAN: 0.cb10E~0e = «iO, 209M ~Ss«éO. CP AE-Ce 
SUBSAMPLE SIZE: 20 60 380 
ESTIMATOR 4; MEAN: 0.6976 0.8263 = 2299992999999 
STD: 0.2110 0. BIGLE-019:92299277999999 
STD MEAN: O.2724E-O2 =: 0, O01 1E-02 7997777779779? 


ESTIMATOR 1: #HRKO(. 6963) of SartBeta L laplace AR r.v.6, Ae.84, L= .9S Using Robust Least Squares estimator (C4, 2) 
ESTIMATOR 2: ###Rho(.8963) of SqrtBeta L laplace AR r.vs., A».B4, L® .35 Using Cressie Estisator 

ESTIMATOR 3: #+#RHO(. 6963) of SortBeta L laplace AR r.v.s, Ae.B4, L= .9S Using moment estimator 

ESTIMATOR 4: #8#fAho(. 8963) of SortBeta L lapiace AR r.vs., Ae.B4, L= .% Using Priestly Estimator 


#44 WIDEST Y VALUES FOUND: YAIN=O, 7611 - YMAX= 2. 160 #+4 SMTB 44 
### THIS WAS A RESTART RUN. NSR START/END= 1 3 


Figure 27. Combined Plot, L-laplace samples. Rho= 0.8963. L= 0.95. 
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that the small-sample bias of the robust regression is also unacceptable. The Cressie 
estimator also has serious asymptotic bias with respect to sample size, but is better be- 
haved with small-sample bias. Still, it would appear that both of these estimator are very 
poorly behaved with extremely ‘heavy-tailed’, non-Normal samples such as these. The 
two estimators that are asymptotically unbiased are the moment and MLE estimators, 
but they are beginning to show larger and larger sub-sample sizes required to reach the 
true value. Also, as we depart from Normal samples, the small-sample bias of these es- 
timators becomes larger. 

Figures 29 and 30 clearly show the biased behavior of the robust regression es- 
timator. This bias is referred to by Denby and Martin, when discussing the ”M- 
estimate, and the “GM-estimate.” This robust regression model is the ”“M-estimate,” 
and hence demonstrates the asymptotic biased behavior referred to by these authors. 
[Ref. 9, p. 141] The further from Normality the sample distribution becomes (in terms 
of the / parameter of the /-Laplace distribution and “heavy-tailedness” of the underlying 
probability distribution), the worse the behavior of these estimators becomes. Figures 
31 and 32 are the individual plots for the Cressie estimator. With only three super- 
replications, we can see good stability in the simulation results (in terms of the standard 
deviations reported with every statistic in the super-replications summary (Figures 30 
and 32). 

Figures 33 through 36 are the individual plots for the two “convergent” estima- 
tors, the moment and the MLE estimators. Here, we can begin to compare these and 
see if perhaps one estimator is becoming unbiased faster than the other (again, with re- 
spect to sample size). It appears from Figures 33 and 35 that the MSEs of both esti- 
mators are decreasing at about the same rate. The asymptotic regression estimate for 
the moment estimator (0.9048) is larger than that for the Priestley estimator (0.8941), 
but the Priestley estimator is underestimating the actual correlation, while the moment 
estimator is now Over-estimating the true value. Both estimators appear to be exhibiting 
similar behavior. (The reader will undoubtedly note the volume of output required to 
be analyzed when comfuters are used to conduct simulations, and hopefully will begin 
to appreciate the purpose of such a package as SIMTBED.) 

4. Parameter! = 0.1. 

As the final case of the strongly correlated, non-Normal samples on which we 
estimate serial correlation, the extreme non-Normal case where parameter / = 0.1 was 
run With SIMTBED. The results begin with Figure 37, which is a color combined esti- 


mator plot of this simulation. It is clear from Figure 37 that the estimators are split into 
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SUBSAMPLE SIZE: 20 6&0 3 
ESTIMATOR 1: PERN: 0. 9383 0.9799 0. 92? 
STD; 0, 1366 0.3824E~O1 =: 0. 4681 E-Ce 
STD MEAN: O.1763EOe 8 =—0,8S551E-03 = 0. 2S 3SE-03 
SUBSAMPLE SIZE: 20 6&0 
ESTIMATOR 2: MEAN: 0.8946 0.9617 0. 9778 
STD; 0. 1165 O.cB7H-Gt 0. 7491E-Ve 
STD MEAN: O.1504EDe = s«O BASTE-03 (0. OB SE-OT 
SUBSAMPLE SIZE: 20 60 Kel 
ESTIMATOR 3: MEAN: 0.6777 0.8120 0.6814 
STD: 0. 2432 0. 1003 0. 6272-01 
STD MEAN: U.27TSE-Oe O.c24-e 0. LEAR 
SUBSAMPLE SIZE: 20 60 iw) 
ESTIMATOR 4; = MEAN: 0.6326 0. 8158 0.8795 
STD: 0, 2207 0, 1060 0, 3849-01 
STD MEAN: 0.2BS0E-02 (0. 2370E-02 (0. 208 TE~02 
ESTIMATOR 1: ###Rho(. 8954) of SqrtBeta L laplace AR r.v.s, Ae. 86, L= .4 Using Robust Least Squares estimator 
ESTIMATOR 2: #8480, 8954) of SartBeta L laplace AR r.vs., fe.86, L» .4 ting Cressie Estinator 
ESTIMATOR 3: ##aRho(. 8954) of SortBeta L laplace AR r.v.s, A=. 86, L= .4 Using moment estimator 
ESTIMATOR 4; 4##Rhol.8954) of SqrtBeta L lapiace AR r.vs., f&.86, L= .4 Using Priestly Estinator 


+44 WIDEST Y VALUES FOUND: YAIHe~1. 569 - YMAX= 4. 262 ++ SHTB ite 
fe TNTS WHS A RESTHNT RUN, NOW STHRT/ERD= i 3 


Figure 28. Combined Plot, L-laplace samples. Rho = 0.8954. L = 0.4 








GPLE SIZE (HK) 1 6000 MO, CF MEPLICATIONS (M1 = DEBREE GF MEBRESSION (BH): 4 








1.2 = f 
[ ( 
i ( 
{ ( 
| t 

{1.4 - ( 
4 i 
' 0 ( 
t ¢ ( 
it ® ( 

1.00 = Docs ceseeettesescceosVablsuaes eee Vins non en6s 06006006 Sasb ees ccccdnccestcactccccecce Feccecccccccceoceccecel 
( le] Pin TTT TT he ae =~ - ( 
(tite ¢ 7 4 eS ( 
t-— 1% ( 
tt ( 

0898 - | f 
i ¢ ( 
( 745 ( 
( ( 
t ( 

479 @- ( 
( ( 
i [ 
( ( 
! ( 

069 - ( 
| l 
| ( 
i | 
\ { 

98 - \ 
( ( 
{ ( 
( i 
| { 

049 - ( 
( 
( | 
\ i 
i | 

28 - ( 
( ( 
( { 
( { 
( { 

Oa <= l 
( f 
( ( 
i ( 
( ( 

& 100 150 200 & R wet] 

SUBSROLE 

81ZE & wo 100 19 £00 = =m 30 

vce 0. $383 0, 9799 6, 0. 9909 6, 9917 0. 9907 0, 9983 

STD 0. 1366 0. 3824E-~01 oO, 16S1E-01 O.970CPE~CR 3 O.77IGE-~CE 8 O.S7BHE-OR OL RBIE-CO 20 0. S0CE~CP 

STD MEAN Q176O2 O.BS1E-3 = 6, 3 0.31603 «=O. AEB ss. SSH 0 PEE -03 

ASE 0. 1431 0.97901 =O, SRSSE-O1 «= OL SOIE-O1 «= OL ST7E-O1 = OL EASE“O1 = OU STSTE-OL =O SPOLE-O1 

~3. 6540 +. 331 “3, =2, 1945 =, 4747 ~1.1%5 ~1.301 -0, 9688 

KURTOS18 16. 1645 63. 072 17. 4649 7.2300 ne 1.6626 2.7%5 1. 3081 
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VERTICAL SCALE: YWINS 0, 


1 #0fho(. 6554) of a L laplace AR r.v.s, fe.86, L= .4 Using Robust Least Sgeares est lester 
Yr 2 «1, 2010 


Figure 29. —_— Individual Plot, L-Laplace samples. Robust Least Squares. 
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ESTIMATOR: ###Rho(. 8954) of SartBeta 1 laplace AR r.v.8, A=.86, Le .4 Using Robust Least Squares est lastor 


Figure 30. 
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Summary Statistics, L-Laplace samples. Robust Least Squares. 
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Figure 31. ‘Individual Plot, L-Laplace samples. Cressie Estimator. 
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Figure 35. Individual Plot, L-Laplace samples. Priestley Estimator. 
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two distinct classes: the robust regression and the Cressie estimator comprise one group, 
and the moment and MLE estimators comprise the other. The first group is strongly 
biased, while the second group converges, but with slower and slower progress, as this 
particular sample distribution (BELAR(1)) becomes more extreme. Recall that when the 
parameter / is small, and the samples are correlated, the behavior of the sample stream 
is such that there are long runs of numbers very close to zero, and then peaks of a few 
positive (or negative) numbers are interspersed. Figure 38 shows the unacceptably bi- 
ased behavior of the robust regression, and Figure 39 has the super-replications sum- 
mary for this estimator’s run. Figures 40 and 41 show the similar behavior for the 
Cressie estimator. Recall that the Cressie estimator showed very sensitive behavior with 
respect to Normality, in that it immediately began to show bias when 7 was set to three. 
Figures 42 and 43 represent the moment estimator. One might say, without the previous 
simulation results, that this estimator also is exhibiting bias, but | would comment that 
the MSE is still decreasing at sub-sample size 500, and 1s still roughly twice the corre- 
sponding standard deviation, so it is possible that this estimator 1s converging, but very 
slowly. The same comments apply to the MLE estimator, results for which are in Fig- 
ures 44 and 45. 
5. Large-Sample Simulation with Robust Regression. 

Before presenting the results on the simulation involving the uncorrelated 
BELAR(1I) processes, we present the results for a large-sample simulation involving the 
robust regression. It was desired to determine if the robust regression estimator was 
actuallv converging, but in the process it might have been actually deviating more from 
the true value for some range of sample sizes. In other words, we were investigating the 
possibility of a non-monotonic convergance to the true correlation value. To do this, 
we ran a SIMTBED simulation with only the robust regression estimator, and used very 
large sample sizes, as can be seen in Figure 46. Here, sub-sample sizes up to and in- 
cluding 5000 were used, with the overall sample size for the simulation increased to 
10000, and the number of replications increase to 50. Thus, at sub-sample size 5000, 
there are 200 evaluations of the estimator represented by that boxplot. This seemed an 
acceptable minimum number of estimator evaluations. Figure 46 shows that there is 
apparently no convergance, even at this extreme, and Figure 47 contains the super- 
replications summary statistics, for three super-replications. The parameter / used was 
0.4, a midranged value that did not cause any problems, and the simulation was con- 
ducted on two separate versions of the robust regression estimator: one, with no addi- 


tional scaling, and the other, with the 0.6745 scaling, referred to in Chapter IV, and used 
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Summary Statistics, L-Laplace samples. Robust Least Squares. 
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Figure 40. ‘Individual Plot, L-Laplace samples. Cressie Estimator. 
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Figure 43. Summary Statistics, L-Laplace samples. Moment Estimator. 
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Summary Statistics, L-Laplace samples. Priestley Estimator. 
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by Denby and Martin with their estimators [Ref. 9, p.141]. Figures 48 and 49 have the 
results with the scaling, and Figures 46 and 47 have no additional scaling. There 1s not 
much difference in the behavior of these two different approaches. The extreme bias of 
the robust regression is present 1n both cases, for the non-Normal BELAR(1) sample 


distribution being used here. 


C. NON-NORMALLY DISTRIBUTED SAMPLES, UNCORRELATED 

This section presents results for the case of the BELAR(1) process, with values of 
a chosen to produce a very small correlation, on the order of 0.05. In these cases, the 
problems associated with the random number generators previously discussed appear 
again, since the values of / we are interested in range from three down to 0.1. Thus, the 
cases for / = 1, and? = 0.1 produced underflow errors and invalid results. Results are 
available for the cases Where / = 3 and/ = 0.4. Figure 50 is a color combined estimator 
plot, with all four estimators, in the case of uncorrelated BELAR(1) samples. Here, the 
moment estimator seems to show the least degree of small-sample bias, but the Cressie 
estimator has the best asymptotic performance. Figures 51 through 54 are the super- 
replications summary statistics for each of the four estimator under conditions where / 
= 3. This picture is similar to that of the Normally distributed, uncorrelated samples. 
From the regression asymptotes, the Cressie estimator appears to show the best 
asvmptotic behavior, although all estimators seem to be over-estimating the true value, 
indicating there is more correlation in the samples than 1s actually present. This occurs 
for all sub-sample sizes. 

Figures 55 through 59 show the results for the uncorrelated BELAR(1) process, with 
/ = 0.4. The results are similar to those above, and the Normal uncorrelated case. All 
of these estimators will tend to indicate a slight degree of correlation, even if the samples 
are completely independent, just due to the nature of performing calculations on the 
sample streams. It is very unlikely that they will indicate a zero correlation; something 
like 0.5 to 0.1 1s more likely to be the case. 

This concludes the presentation of simulation results on lag-1 serial correlation using 
SIMTBED. For the negatively correlated case, results similar to the positively corre- 


lated case are expected, including the random number generation difficulties. 
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Figure 46. Individual Plot, No Additional Scaling. Robust Least Squares. 
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Summary Stats, No Additional Scaling. 
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Robust Least Squares. 
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Figure 48. Individual Plot, Additional Scaling. Robust Least Squares. 
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Figure 50. Combined Plot, BELAR(1) Process. L=3. Rho= 0.05924. 
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Figure 51. 


Summary Statistics, L-Laplace Samples. Robust Least Squares. 
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ESTIMATOR: ##Aho(, 09924) of SortBeta L laplace AR r.vs., Ae. 0, L= 3 Using Cressie Est lastor 


Figure 52. 
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Summary Statistics, L-Laplace Samples. Cressie Estimator. 
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ESTIMATOR: ##fho(. 05924) of SortBeta t leplece AR r.v.s, Aa,02, Le 3 Using soment est iaator 


Figure 53. 


Summary Statistics, L-Laplace Samples. Moment Estimator. 
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ESTIMATOR: ##ffho(. 08924) of SqrtBeta L laplace AR r.vs., fe,0@, Le 3 Using Priestly Estisetor 


Figure 54. Summary Statistics, L-Laplace Samples. Priestley Estimator. 
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Figure 56, 


Summary Statistics, L-Laplace Samples. Robust Least Squares. 
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Figure 58. Summary Statistics, L-Laplace Samples. Moment Estimator. 
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Summary Statistics, L-Laplace Samples. 
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VI. CONCLUSIONS 


A. SIMTBED. 

These types of statistical simulations would be largely infeasible without some sort 
of aids to the user. With routines like SIMTBED, these simulations can be interesting 
investigations. Granted, SIMTBED can be difficult to understand for the beginning 
simulator. But, once familiarity is gained all sorts of investigations and simulations are 
within the realm of the user. Now, we have increased the capability of SIMTBED by 
providing the user the capability to use his personal computer and color output devices 
in statistical simulations, which 1s often more convenient and cost effective. As tech- 
nology proceeds, these tvpes of programs will attract more attention and produce more 


for the user community. 


B. SERIAL CORRELATION ESTIMATION. 

These simulation results do not, in the opinion of this author, provide any evidence 
to indicate that the more esoteric and analytically intractable estimators of serial corre- 
lation are any better, with regard to producing the “correct” results, than the well- 
understood estimators the standard statistical theory has produced. In fact, they may 
be worse. This is demonstrated by the behavior of the Cressie estimator and the robust 
regression approach versus the familiar moment and less familiar MLE estimators. 
Further, if the user interested in serial correlation has additional information about his 
samples, he can, with these results, determine the behavior of these estimators on his 
samples. In order to get good estimates of serial correlation, the following advice is of- 


fered: 


¢ Use the largest possible sample size. If possible, it is desirable to be outside the 
small-sample bias effects. 


¢ Try and ascertain the distributional properties of the sample/population. If it is 
distinctly non-Normal, then recognize there will be a corresponding lack of accu- 
racy in the estimate. 


¢ If possible, obtain multiple samples. Multiple estimates give better overall indi- 
cations of the correlation. 


C. FURTHER EXPERIMENTATION. 
It would be interesting to study the “GM-estimate” of Denby and Martin 


[Ref. 9, p. 141]. Other non-Normal distributions can also be investigated. Given 
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sufficient time, these simulations can be carried further, in terms of sub-sample sizes, and 
number of super-replications. Finally, there are probably other esoteric estimators of 


serial correlation in the literature which could be studied, as this is an important field in 


which to conduct research. 
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APPENDIX A. USER’S GUIDE TO SIMTBED, A SIMULATION TEST 
BED 


A. OVERVIEW. 

The simulation test bed program used in this thesis, SIMTBED, is designed to aid 
in the assessment of the distributional properties of any user-supplied statistical estima- 
tor based on 1.1.d random variables or on time series. It is a FORTRAN subroutine, and 
provides analysis of estimators at various sample sizes. It controls the user-provided 
generating routines so that the estimator can be computed many times to study its dis- 
tribution, moments (through the 4th central moment), and the variability of the esti- 
mates of these values. A regression model for the mean and variance can also be 
constructed. In general, any statistical simulation provides voluminous output, and this 
approach 1s designed to compactify the output and make the important features appar- 
ent. Graphic displavs of the behavior of the user estimators 1s accomplished using line 
printer graphics, and the system is designed for the IBM personal computer familv of 
computers. Output consists of a series of plots for each estimator (box plots, percentile 
plots, normalized quantile plots), summary tables for super- replications, a combined 
boxplot graph for all estimators, and optionally bivariate histograms for pairs of up to 
three estimators. If known values of the estimators are provided, the mean squared error 
from these Known values can be obtained. 

1. History. 

SIMTBED began in 1981 with a mainframe version by Lewis, Orav, and Uribe. 
The first personal computer version was presented in a thesis by Hans-Walter Drueg, 
based on the regression adjusted graphics and estimation methodology of Lewis and 
Heidelberger. It has subsequently been moved to the IBM PC, and modifications in- 


clude: 


e A capability for super-replications to estimate the variability of the estimates of the 
quantiles, moments, and regression parameters. 


e A restart capability for building super-replication simulations over time using files. 


e Use of files to capture super-replication output for further processing by other 
svstems. 
e Bivariate histograms. 


4 


¢ Most recently, the use of color to compare the estimators with each other in the 
same plot. 
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This work reflects changes in data processing technology, and 1s largely the re- 
sult of work by P.A.W. Lewis, E.J. Orav, and L. Uribe, while the most recent additions 
to the system were added as part of this thesis by the author. The remainder of this 


appendix consists of a discussion of the features of SEMTBED, and how it is used. 


B. FEATURES OF SIMTBED. 

In order to use SIMTBED, the user must supply the driver, a program which sets 
the parameters (listed below) and calls SIMTBED, and the estimator routines, which 
take a random number seed and sample size, and generate one result which 1s the esti- 
mator, based on the sample size. These are referred to as sub-sample sizes, for the fol- 
lowing reason. 

1. Sample Sizes. 

SIMTBED takes a global sample size, N, (5000, for example), and then sections 
it according to various subsample sizes NE(), and calls the estimator routine(s) the ap- 
propriate number of times. In this way multiple evaluations of the estimator are ob- 
tained. If the subsample size were 100, and N were 5000, then 50 evaluations of the 
estimator, based on a sample size of 100 would be obtained. This process can be repli- 
cated up to 100 times, through M, the number of replications, so for example, if N 1s 
5000, and NE 1s 50, and M 1s 20, then 2000 evaluations of the estimator will be gener- 
ated. Up to eight different subsample sizes can be specified, and will be used for each 
of up to five estimators. These evaluations of the estimator are stored in an array, and 
SIMTBED will obtain statistics from them. The array must hold at least 
(N x M)/NE(1), where NE(1) 1s the first, and smallest subsample size. The subsample 
sizes are in increasing order, which 1s conducive to the graphing process. 

2. SIMTBED Estimator Statistics. 

SMTB computes the mean of the stream of estimators, for each subsample size. 
Also, the standard deviation is computed using n-1 weighting. The standard error of the 
mean is computed, as o//n. The mean squared error (MSE) is optionally estimated 


using the formula 
MSE = ,/(VAR + (i — VMSE)’) Cea) 


where VMSE is the Known input value of the estimator, again for each subsample size. 


The coefficients of skewness and kurtosis are also computed, using unbiased expressions. 


of 


3. Graphs. 
a. Boxplots. 

A boxplot graph is generated for each estimator, depicting boxplots for each 
subsample size, showing the mean, median, inter-quartile range, and outlier information. 
The vertical scale can be set by the user, or SIMT BED will scale the graph according to 
the largest values encountered. The graphs can be fixed to all have the same scale, or 
each can be scaled individually. The boxplots can be reduced. That is, the outliers are 
reported as a numeric count at the tail of the boxplot instead of representing each by a 
separate symbol. This is often necessary for highly variable estimators. If super- 
replications are being performed, up to three such plots for each estimator can be ob- 
tained. 

b. Quantiles. 

A plot of eleven quantiles 1s prepared next. They are depicted in the plot, 
as well as tabulated below the graph. The lag one serial correlation (moment estimator) 
is also listed. A normalized quantile plot is also available. 

c. Other Plots. 

If requested, bivariate histograms for the pairwise combinations of the first 
three estimators can be obtained to graphically assess relationships between the different 
estimators. One plot is prepared for all the subsample sizes, giving the possibility of 24 
histograms if the full complement of subsample sizes 1s prepared. The bivariate 
histogram also lists four measures of association: covariance, correlation coefficient, 
Spearman’s rank correlation coefficient, and Kendall’s tau coefficient. Five tests for 
equidistribution are included: Kolmogorov-Smirnov, Wald-Wolfowitz, Mann-Whitney, 
Wilcoxson, and Siegel-Tukey tests. The overall univariate statistics are also reproduced 
with these plots: mean, median, variance, standard deviation, range, etc. 

d. Combined Estimator Boxplots. 

Finally, a graph of selected boxplots for all estimators together can be ob- 
tained, so the relations between them at various sample sizes can be better studied. If 
a color printer 1s available, each estimator will have a different color. Up to three of the 
subsample sizes can be plotted, for up to five estimators, all on the same graph. If re- 
gression is being performed, the asymptote lines will be included, in the appropriate 
color for each estimator. These regression lines are merely reproductions of the full re- 
gression SIMTBED performed when the estimators were simulated, and are based on the 
original SIMTBED regression. No additional simulation or computation 1s required to 


produce these combined plots. 
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4. Regression. 
The regression performed by SIMTBED follows the methodology developed by 
Heidelberger and Lewis (see the body of the thesis, Chapter 3, Section B.). Regression 
is performed on the mean of estimates using the data from the subsample sizes according 


to the equation: 
ay a+ a3 
ieee Cee) ot (—.-) + (—) + ... (A — 2) 
m m 


the degreee of regression is the number of terms of the equation used. In equation (2), 
6 is the regression estimate of the estimator. This regression is performed for each rep- 
lication (M), and with these independent data points, the variance and standard devi- 
ation of the coefficients of equation (2) can be estimated. These equation coefficients 
are reported with the standard boxplot graphs SIMTBED produces. 

The regression for the variance of the estimator is performed once, using all 
M*N data points, according to the equation 


by 


Var[0,,] =(=-) + (— 


b b, 
ise) tC 
m m 








bg 
Been ES ace (A — 3) 
m 
These coefficients are also reported in the plot summary. 
5. Super-replicaticns. | 

The simulation process just described can be wholly repeated many times, re- 
ferred to as super-replications. This makes it possible to get precision information, in 
the form of standard deviation, for all the statistics SIMTBED computes, instead of just 
the regression adjusted estimate of the mean of the estimator distribution. With super- 
replications, averages and standard deviations are available for all the moments, the se- 
rial correlation of the replications, and all eleven quantiles for all the subsample sizes, 
and the regression coefficients as well. If specified, individual run boxplot graphs and 
quantile plots can be obtained for the first three super-replications, or only for the first. 
These super-replication summary statistics can be stored in a file in tabular form for 
further processing by any number of other means, or for archival purposes. 

Since the performance of super-replications can be quite time-intensive, 
SIMTBED has the capability to write the parameters and summary data to a file for 


super-replications so far performed, and will then restart from where it Ieft off, producing 
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more super-replications on the same simulation. In this way, the precision needed can 
be achieved piecewise, at the convenience of the user. 
6. Random Number Generation. 

Since statistical simulation is dependent on the production of pseudo-random 
numbers, SIMTBED makes available routines for generating several common distrib- 
utions of random variables. Among these are uniform, normal, Laplace, Cauchy, 
gamma, Pareto, beta, geometric, Poisson, and binomial random variables. These ran- 
dom number generators are based on the well tested uniform random number generator 
LLRANDOM II. These random number generators are linked with the SIMTBED 
subroutines after compilation, and the user can thus use any linker/library utility to in- 
sert or remove any of these routines, or add new random number generators (1.e. IMSL) 


ativall: 


C. USE OF SIMTBED. 

To use SIMTBED you must write a FORTRAN program which has a CALL 
statement to the SEMTBED subroutine. [his is called a driver program, and your driver 
must do several things for SIMTBED to operate properly. An example driver is included 


as figure |. The driver must do the following: 


e Initialize and set appropriate values for the arguments of SIMTBED (see Table 1). 
This is done through the REAL, INTEGER, DATA, and direct assignment 
FORTRAN statements. 


e Declare the scratch array of the correct size for SIMTBED to use. This size is de- 
termined as N * M | NE(1), since NE(1) is the smallest sample size, and will result 
in the largest number of evaluations of your estimator. 


e Declare as EXTERNAL the names of the estimator routines provided to 
SIMTBED. 
1. SIMTBED Arguments. 

The argument types for SIMTBED are listed below, along with their function 
and possible values. In general, the names used here are not required, but they must 
match in variable type and position in the calling statement, and the arrays must be of 
the correct dimension. For example, NCOLRNDX is not required to be named as such, 
but it must be an INTEGER(3) array, and be in the proper order in the argument list 
of the calling statement. 

2. Calling Statement. 
The calling statement to invoke SIMTBED 18: 
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CATIPSIMiMBEDUSEED 1, ISEED2, ISEED3, ISEED4,ISEEDS, Y,N,M,NE, 

wD Non RG,OELSYVS, Y MIN, Y MAX,NEST,GEST1,TTL1,GEST2,FTL2, 

°GES13,1 TL3;GES14,1T1L4,GEST5, TTL5,IFIL,NPRT,MSE,VMSE,IPR, 

*VMX1,VMX2,VMX3, VMX4,VMX5,IBIV,RSTRT,ICOLOR,IBWPRT,NCPRT, 

* NCOLRNDX) 

3. Estimator Routines. 

The user must also provide a number (up to five) of estimator subroutines to 
SIMTBED, for generating the random numbers and the estimator, based on the sample 
size. The argument list of the estimator routine must have the following structure (the 


name is up to the user, of course): 
SUBROUTINE GESTI(ISEED,N,EVAL) 


where GESTI is the declared EXTERNAL name, ISEED is a REAL*8 (double preci- 
sion) number for the random number seed, N 1s an INTEGER sample size to use, and 
EVAL is a REAL *4 result, the estimator evaluated based on sample size N. Within the 
routine the user is free to do anything necessary to generate the random process and 
obtain the estimator (could even be non-random nature). It is common to have calls to 
random number generators and some follow-on calculations (for example, obtaining the 
fourth moment of standard normal random numbers). It is often of interest to determine 
how many times this user routine will be called. The value N will be each NE(I) 1n se- 
quence, so the number of calls to this subroutine will be N * M / NE(1), for each sub- 
sample size. This is why the Y array is required to be at least a certain size. It holds the 
results from the calls to this routine. Notice there is no provision for other parameters 
to be passed to the estimator routine. If the user wishes to parameterize the estimator 
routines through the driver program (useful for complicated and related estimators), 
COMMON storage is available for this purpose. SIMTBED does not use any COM- 
MON storage. 
4. Files. 

SIMTBED has the ability to use three files in addition to the console (UNIT 
5). These are for normal output (UNIT 6), restart operations (UNIT 2), and super- 
replication recording results (UNIT 1). Each of these files is used in a different way. 
They are all created with the OPEN statement. The UNIT 6 file will contain carriage 
control characters for visual display devices (printers, CRTs), and can be a file, or an 
actual unit. We recommend using a file to prevent a printer error from causing a pro- 


gram interrupt and loss of data. Ifa file is used it must be printed with respect given to 
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the carriage control characters, or the plots will not be correct (the DOS PRINT com- 


mand suffices nicely). For example 
OPEN(06,FILE= RESULTS. TXT’,FORM = ’FORMATTED’) 


where ACCESS of SEQUENTIAL 1s the default and not specified. Also, no error han- 
dling 1s present in this example. The file used for output of super-replications is also of 
tvpe FORMATTED, but is written to UNIT 1, and has no carriage control characters 
imbedded. The result is a normal ASCII file that can be read by any text editor. The 
file used for restart 1s different, however. Using UNIT 2, this file is UNFORMATTED, 
and can only be read by another FORTRAN program. Since type FORMATTED 1s the 
default for sequential files, the user must give this specific declaration in the OPEN 
Statement, or an error will occur. For example, 

OPEN(02,FILE= START.DAT’,FORM = ‘UNFORMATTED’,ACCESS = 

‘SSEQUENTIAL’) will cause the correct file type to be created. The data in this 
file is written in internal storage form, and 1s inaccessible to the user. 

5. Using Random Numbers. 

The random number generators available in SEMTBED are based on the uni- 
form random number LLRANDOMII, as mentioned earlier. What will be listed here 
is the CALL statement and arguments required to generate a random variable stream, 
and the form of the variables generated. For all the calls, DSEED is a REAL*8 seed, 
N is the number of variables generated, and X 1s a real array of size at least N, con- 


taining the random numbers after the call. 


¢ For uniform random numbers, use CALL LRNDPC(DSEED,X,N) to obtain uni- 
form [0, 1] random numbers. 


¢ For normal random numbers, use CALL LNORPC(DSEED,X,N) to obtain 
Standard normal random numbers. 


¢ For Laplace random numbers, use CALL LLAPPC(DSEED,X,N) to obtain 
Laplace random numbers with mean 0 and standard deviation SQRT(2). 


¢ For Cauchy random numbers, use CALL LCHYPC(DSEED,A,N) to obtain 
Cauchy random number with location 0 and scale | 


¢ For Gamma random numbers, use CALL LGAMPC(DSEED,X,N,K) to obtain 
Gamma random numbers with shape K and scale 1. Transform to Gamma(k,b) 
by dividing by b. 


e Pareto random numbers’ are available by the statement CALL 
LPARPC(DSEED,X,N,A) where A is the shape parameter of the Pareto distrib- 
ution. 
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Beta random numbers are obtained with CALL LBETPC(DSEED,X,N,P,Q) where 
P and Q are the parameters of the Beta distribution. 


Geometric (discrete) random variables are available with CALL 
LGEOPC(DSEED,A,N,P) where P is the parameter of the geometric distribution. 


Generate Poisson random variables with CALL LPOIPC(DSEED,A,N,U) where 
U is the mean of the desired distribution. The method used to generate these var- 
iables uses a table lookup, and requires some front end ‘overhead’ to set up. For 
best efficiency, generate as many variables as possible at one time. 


To generate Binomial random numbers, CALL LBINPC(DSEED,X,N,NIND,P) 1s 
required. NIND is an INTEGER, for the parameter number of trials. P is the p 
parameter for the binomial distribution. 


For random variables other than those listed here, or that cannot be obtained 
through some transformation, the user must provide the routine to generate them, 
usually starting with a call to LRNDPC. 


6. Running SIMTBED. 


In general, to run a driver with SIMTBED, the driver must be compiled and 


linked with the SIMTBED library. For most compilers there is an option for large ar- 


rays. This should be used if the dimensions of the Y array are large. The reader is re- 
ferred to the body of the thesis for examples of SIMTBED output. 


D. 


le 


SIMTBED ARGUMENTS AND PARAMETERS. 


ISEED1, ISEED2, ISEED3, ISEED4, ISEEDS. DOUBLE PRECISION 
(REAL*8) reals. These are the seeds used to start the random number streams 
used by SIMTBED. Using the same seed will produce the same results. Use the 
same number for the seed to get the same random numbers for each estimator. 


. Y. REAL*4 array. The scratch array used by SIMTBED to carry the results of 


your estimator when called. 


. N. INTEGER. The “global” sample size. 


. M. INTEGER. The number of replications of each subsample size to perform. 


M cannot exceed 100. 


. NE. INTEGER array of size 8. The subsample sizes for SIMTBED to use. Must 


be in ascending order. If less than 8 are used, pad with zeros. 


. L. INTEGER. The number of subsample sizes to use. Must be between | and 
8. 


. D. INTEGER. The degree of regression (number of terms 1n regression equation). 


Can be from 1 to 6. If there are not enough subsamples (D < = L- 1) to establish 
the regression, SIMTBED will lower the degree of regression specified in the call. 
Using D=0 will suppress the regression. 


. NSR. INTEGER. Number of super-replications to perform. Must be at least one. 


If only one super-replication is used, no summary will be generated. 
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9. RG. INTEGER. Reduced Graphics. 1 = Yes. 0 = No. In reduced graphics, 
SIMTBED will put the number of outliers at the end of the boxplot instead of 
plotting each one. This makes the scale of the plot closer to the interquartile range, 
and thus easier to interpret for highly variable estimators. 


10. SEI. INTEGER. Scale Estimators Individually. 1 = Yes. 0 = No. When set 
to zero, plots for all estimators will have the same scale (the max of the set of es- 
timators). This is required for color combined plots, so if color 1s selected, this flag 
will be reset. 


11. SVS. INTEGER. Set Vertical Scale. 1 = Yes. 0 = No. If SVS = 1, the user 
will set the vertical scale with the values YMIN and YMAX. Otherwise, 
SIMTBED determines these values. 


12. YMIN. REAL. Minimum y axis value for SVS = 1. 
13. YMAX. REAL. Maximum y axis value for SVS = 1. 


14. NEST. INTEGER. Number of Estimators. Must be between 1 and 5. The ap- 
propriate arguments for the number of estimators must be defined. Otherwise, 
dummy arguments can be used (ISEED, GEST, TTL, VMX). 


15. GEST1, GEST2, GEST3, GEST4, GESTS. EXTERNAL. These are the names 
of the estimator routines, passed to SIMTBED in the calling statement. For un- 
used estimators, duplicate the defined names. 


16. TTL], TTL2, TTL3, TTL4, TTLS5. CHARACTER*120 (max). A label of the es- 
timator routine, to be placed on the plots. 


17. IFIL. INTEGER. 1 = Yes. 0 = No. Yes will write the super-replication sta- 
tistics to the file declared on UNIT 1, for further processing. This is a formatted 
ASCII file. 


18. NPRT. INTEGER. Print Detail. 1 = Yes. 0 = No. Yes will print full plots for 
the first three super-replications, and normalized quantile plots in addition to the 
standard quantile plots. No will print full plots only for the first super- replication. 
Regardless, the information for the color combined plots comes from the first 
super-replication. 


19, MSE. Mean Squared Error. INTEGER. 1 = Yes. 0 = No. Yes will compute 
the mean squared error of the estimator at each sample size from the user input 
known values. No ignores the user input Known values. 


20. VMSE. Vector of Mean Squared Error. REAL array (8,5). 
The known values of each estimator at each subsample size, for SIMITBED to 
compare with the generated results, based on MSE flag. Initialize to zeros for un- 
used portions of this array. 


21. IPR. Print Percentile Plots. 1 = Yes. 0 = No. Yes will cause SIMTBED to 
count the frequency of occurrence where the evaluated estimator is less than each 
of four specified values (the percentiles), for each subsample size. These are then 
converted to probabilities, and a plot 1s produced. 


22. VMX1, VMX2, VMX3, VMX4, VXM5. REAL array (8,4) each. These are user’ 
supplied values for the percentile plot calculations. SIMTBED will obtain the fre- 
quency that the estimator is less than each value and prepare a percentile plot. 
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23. IBIV. INTEGER. Bivariate Histograms. 1 = Yes. 0 = No. Yes causes 
bivariate histograms to be produced for each combination of the first three esti- 
mators, at each subsample size. 


24. RSTRT. Restart. INTEGER. 1 = Yes. 0 = No. Yes results in a SIMTBED 
write to the file on UNIT 2 of the super- replication final results, so that the sim- 
ulation can be continued from this point later. For subsequent runs, Yes causes 
the file on UNIT 2 to be read, and the parameters checked for agreement. Proc- 
essing continues with the next super-replication. For example, if 3 is used for NSR, 
then using 8 for the next run for NST will cause 5 more super- replications to be 
performed. Using a value for NSR for a later run less than that used on an earlier 
run causes a message to be displayed and processing stops. 


25. ICOLOR. INTEGER. Color Combined Printing. 1 = Yes. 0 = No. Yes causes 
combined boxplots of all the estimators to be produced. The subsample sizes used 
are determined by another array. SEI is set to 0. Printer control codes to set colors 
for standard IBM dot matrix printers are used to print each estimator in a different 
color. On non-color printers these codes are ignored. 


26. IBWPRT. INTEGER. Standard Printing. 1 = Yes. 0 = No. Yes causes the 
standard printing of boxplots for each estimator in sequence. No suspends this 
printing for brevity. Bivariate histograms and super-replications summary plots 
will still be generated. This is used in conjuction with the ICOLOR flag to produce 
output which will consist of only the color combined plot. This way, if the exper- 
imenter in only interested in obtaining this plot, he will not have to print all the 
previously generated plots to obtain it. (This actually came about as an aid during 
development of the color features.) 


27. NCPRT. UNTEGER. Number of clusters to print. Must be between 1 and 3. 
This is the number of subsample sizes for which to print combined boxplots. 


Zo NCOLRRND XIN JTEGER tray, size 3. Each entry must be between 1 and 8, in 
increasing order. Do not duplicate entries. This specifies which of the subsample 
sizes are used in the combined plots. For example, DATA NCOLRNDX?2,3.4/ 
will cause SIMTBED to use the second, third, and fourth subsample sizes in the 
combined plots. 


This concludes the discussion of SIMTBED. 
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APPENDIX B. METHOD USED TO PROGRAM COLOR COMBINED 
BOXPLOTS IN SIMTBED 


A. INTRODUCTION. 

This appendix describes the programming approach I] used to incorporate the fea- 
tures we wanted into SIMTBED, which took approximately three months of analysis 
of the SIMTBED program and its approach to statistical simulation. There were four 
basic aspects involved in incorporating color printing into SIMTBED: 

e Understand the architecture and organization of the existing SIMTBED package. 


e Understand the method of producing graphics with line printers and dot matrix 
printers (line printer graphics). 


e Understand how color printers are controlled (changing their colors, etc.). 


e Determine the approach to placing the color boxplots together to produce the 
complete plot. Spacing, choice of color, and graph features to be included were all 
considerations. 


Each of these will be discussed in turn. 


B. SIMTBED ARCHITECTURE. 

SIMTBED, version 13, has 21 subroutines, including two added by this author to 
control the color dot matrix printers. Most of the subroutines are involved with com- 
puting statistics, regression, percentiles, and other numerical interests, and so are not of 
direct interest here. The starting subroutine, SIMTBED, calls the subroutine PRST 
once for each estimator being processed, and PRST is the routine that conducts the 
sectioning, calls the generator routines, obtains the statistics, and prepares the plots. 
This routine is where the color plotting preparation has to occur, although it will be 
printed in SIMTBED, since the color plot is not complete until all the estimators have 
been processed. PRST makes use of two important subroutines in constructing plots: 
BOXPRT, which puts a boxplot in a specified place in a plot array (given the appropri- 
ate statistics, of course), and NUMPRT, which puts an integer value into the plot array 


in the specified location. The color plotting routine will use both of these. 


C. LINE PRINTER GRAPHICS. 
Using character printing devices to generate plots is not a complicated concept. The 


line print (or dot matrix printer) is normally a character oriented device, and can be used 
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to create plots. The difficulty lies in determining the position of the points to be plotted. 
Once the position is determined, the appropriate character is simply printed. The ap- 
proach to this method is to use a character matrix, a two-dimensional array of charac- 
ters. The row is then the x axis, and the column is the y axis. Then, all the (x, y) pairs 
of points are scaled such that they run between zero and the dimension of the array. In 
SIMTBED, the dimensions are 132 spaces across and 50 vertical spaces. The dot matrix 
printer is used in compressed type mode, to make maximum use of the limited resolution 
it has compared to other graphic devices. For these purposes, line printer graphics work 
quite well. 

The color plotting approach to line printer graphics uses the same approach, except 
there is a three dimensional character array: the first two dimensions represent the row 
and column of the plot, and the third dimension represents the color being plotted. 
Thus, there is one complete character array for each color to be plotted. When a char- 
acter is to be plotted 1n a specified color, it is stored in that ‘sheet’ of the character array. 
Then, when printing is to occur, each line is printed the number of times corresponding 


to the number of colors before moving on to the next line. 


D. COLOR PRINTERS. 

I found that there 1s in fact a good degree of standardization in the commands used 
by different color printers. These commands consist of special escape code sequences 
to change the printer color (the escape character, the lower case ‘r’,and a numeric color 
code). This suggested a simple subroutine that would accept a number representing the 
color, and would set the printer (FORTRAN UNIT 6) to that color, using the escape 
code sequence. The other subroutine added merely initialized the three-dimensional 


color character array to all blanks. 


E. DETERMINING THE COLOR PLOTTING. 

Having determined the SIMTBED approach to line printer graphics, and the ap- 
proach to the new color printers, it remained to choose a good way to display the color 
plots. How many subsample sizes? How should they be spaced? How much of the re- 
gression lines could be included before the plot became too cluttered? These issues were 
addressed through experimentation. Along the way, it was easily possible to increase the 
number of estimators SIMTBED could process from three to five. With five estimators, 
we found that more than three subsample sizes could result in twenty boxplots being 
plotted together in one plot. This was the limit. We restricted the number of subsample 


sizes for color combined boxplots to three, and with five estimators this proved to be 
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reasonable, if the subsample sizes are spread out. If they are not, but are closely ar- 
ranged, then the scaling of the regression line, when plotted, will be incorrect. Because 
of this, and the clutter in the plot for different regression lines for different estimators, 
we removed the regression line from the color plots. The asymptote was kept, though, 
as it did not clutter the graphs terribly. This is the new current version of SIMTBED 


for the personal computer. 
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APPENDIX C. SAMPLE SIMTBED DRIVER ROUTINES 


& SIMTBED DRIVER FOR NORMAL AR(1) RANDOM VARIABLES RST 
Cpe eee nn ee nnn eee nner nee SMTB12 ----------------------------- RST 
REAL*4 Y(6500),YMIN, YMAX, V(8),RHO 
CHARACTER*120 T1,T2,T3,T4,T5 RST 
Reem Xl ph X2, 1X3,1X4,1X5 ,IX | 
INTEGER N, M, NE(8), L, D, RG, SEI, SVS, NEST,NCOLRNDX(3) RST 
EXTERNAL: NAR3,NCRES1,NPRIES , NROBUS 
REAL VMSE(8,5), VMX1(8,4),VMX2(8,4) , VMX3(8,4) , VMX4(8,4) , VMX5(8,4) RST 
COMMON RHO 
G RST 
DATA N/6000/ 
DATA M/ 20/ 
DATA NE/ 20,60,100,150, 200,250, 350,500/ 
DATA L/ 8/ 
DATA D/ 4/ RST 
DATA RG/ 1/ RST 
DATA SEI/ 0/ RST 
DATA SVS/ 0/ RST 
DATA YMIN/ 0. / RST 
DAga) YMAX/ 0. / RST 
DATA IX/ 88771. D0/ RST 
DATA IFILE /1/ 
DATA NPRT /0/ RST 
DATA MSE /1/ RST 
DATA VMSE /32%*.9,8%*0/ 
DATA IPR /0/ 
DATA IBIV /0/ 
DATA IRSTR /1/ RST 
DATA T3/ '**Rho of N(0,4) r.v.s, rho=0.9 using moment estimator’ / 
DATA T2/ ‘'**Rho of N(0,4) r.v.s, rho=0.9 using robust Ledst Squar 
*es estimator’ / 
DATA T4/ 'e*Rho of N(O,4) r.v.s, rho=0.9 using Cressie estimator 
DATA T5/ '**Rho of N(0,4) r.v.s, rho=0.9 using Priestly Estimator 
* 
DATA ICOLOR/1/ IBWPRT/1/ NCPRT/3/NCOLRNDX/1,2,7/ 
OPEN(06,FILE='NA1. OUT' , ERR=999 , IOSTAT=IER) 
OPEN(05,FILE='CON ' ,ERR=999 , IOSTAT=IER) 
OPEN(02,FILE='NA1. RST’ , ERR=999, IOSTAT=IER, FORM='UNFORMATTED' , 
C ACCESS='SEQUENTIAL' ) 
OPEN(01,FILE='NA1. DAT' , ERR=999 , IOSTAT=IER, FORM=' FORMATTED’ , 
C ACCESS='SEQUENTIAL'’ ) 
C --- GENERATOR PARAMETERS RST 
NEST=4 
NSR=8 
RHO=0. 9 
C RST 
IX1=IX RST 
IX2=IX RST 
IX3=1X RST 


IX4=IX 
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CALL SIMTBEDCIX1, 1X2, 1X3, 1X4, TAS, Y,N,M,NE, LDS NSK RG SET yom 
* YMIN, YMAX,NEST,NROBUS ,T2,NCRES1,T4,NAR3,T3,NPRIES,T5 ,NAR3,T3, 
* JTFILE 
%* = ¥NPRT,MSE,VMSE, IPR, VMX1 , VMX2 , VMX3 , VMX4, VMX5 , IBIV, IRSTR, ICOLOR, 
* IBWPRT , NCPRT , NCOLRNDX ) 

STOP 


999 CONTINUE 
WRITE(6,*) '%2%%%% ERROR OPENING FILE 1, 2 or 6 ' 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER 


66 
67 
68 
69 
70 
7a 
ie 
x 
74 
15 
76 
77 
78 
uo 
80 


ee 


C 


OF ERRORS IN PROGRAM UNIT: 0 


INCLUDE 'AR1.FOR' 

SUBROUTINE AR1(1X,X,N) 
THIS SUBROUTINE GENERATES THE NORMAL AR1 PROCESS, WITH CORR COEF 
RHO, MEAN 0, AND STDDEV 1 

REAL*8 IX 

REAL*4 X(*) ,RHO 

COMMON RHO 

CALL LNORPC(1X,X,N+1) 

X(1)=RHO*X(N+1)/SQRT( 1-RHO*RHO) + X(1)*SQRT( 1-RHO*RHO) 

WRITE(5,*)'X(1): ‘',X(1) 

DO 100 I=2,N 

X(1)=RHO*X(I-1) + XC 1I)*SQRT(1-RHO*RHO) 

100 CONTINUE 

RETURN 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
oe 
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INCLUDE 'NAR3. FOR' 
SUBROUTINE NAR3( 1X,N,EVAL) 
LAG 1 SERIAL CORRELATION OF NORMAL (0,1) R.V.S , RHO=0.9 
USING XBAR TO ESTIMATE MU 
RHO OF THE AR1 PROCESS IS PASSED TO THE 
GENERATOR AR1 THROUGH COMMON STORAGE 
REAL*8 IX 
REAL*4 X(600) ,MEAN 
COMMON RHO 
CALL AR1(1X,X,N) 
SUM=0 
SUM1=0 
Domne 
SUM=SUM+X(I) 
MEAN=SUM/N 
SUM=0 
B@o2 lz 
SUM=SUM+( X( I) -MEAN)*( X( I-1) -MEAN) 
SUM1=SUM1+( X( 1) -MEAN)**2 


ale? 


RST 








RST 


RST 





100 
led C 
102 
103 


NUMBER 
NUMBER 


104 
105 
106 
107 
108 
109 
TO 
lida 
Dig) 4 
3 
114 
115 
116 
117 
118 
119 C 
m0 C 
P21 

F222 

mo 1 
124 

RD © 
16 
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NUMBER 
NUMBER 


128 
129 C 
Heo C 
1 C 
Pe2 
133 
134 
135 
iso 1 
i237 C 
136 
ios C 
140 
141 
142 
143 
144 
145 
146 


EVAL=SUM/SUM1 
WRITE(5,*)'SER. COR 
RETURN 

END 


" SEVAL 


OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


INCLUDE 'NCRES1. FOR’ 
SUBROUTINE NCRES1(1X,N,EVAL) 
COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING THE CRESSIE FORMULA 
THE NORMAL AR1 PROCESS HAS RHO PASSED BY 
COMMON STORAGE. 
USES FUNCTION AMEDI TO GET THE 
MEDIAN. 
INTEGER N 
REAL*8 IX 
REAL*4 X(600),MEAN,MEDIAN 
COMMON RHO 
Olney ARICIX,X,N) 
SUM1=0 
SUM2=0 
MEDIAN=AMEDI(X,N) 
WRITE(5,%*)'MEDIAN = ' ,MEDIAN 
WRITE(5,*)'X(I) ',CXCI),I=1,N) 
DO 1 I=1,N-1 
SUM1=SUM1+SQRT(ABS(X(1)-X(I+1))) 
IF(ABS(X(1I)-MEDIAN). GT. 0)SUM2=SUM2+SQRT( ABS( X(1I)-MEDIAN) ) 
EVAL=1-(((SUM1/SUM2)**4)/2) 
WRITE(5,*)' CRESS = ',EVAL 
RETURN 
END 


OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


FUNCTION AMEDI(X,N) 
THIS ROUTINE USES A SHELLSORT AND INDEXES INTO THE REAL ARRAY X TO FIND 
THE MEDIAN OF X WITHOUT REARRANGING IT. 
THE INDEXES ARE USED AS INTEGER*2 TO CONSERVE STORAGE. 
REAL*4 X(*) 
INTEGER*2 I, INDX(600) 
INTEGER N 
DO 1 I=1,N 
Ese =I 
WRITE(5,*)'UNSORTED LIST: ',(X(INDX(1I)),I=1,N) 
CALL SRTNDX(X,N,INDX) 
WRITE(5,*)'SORTED LIST: ',(X(INDX(1)),I=1,N) 
IF(MOD(N,2). EQ. 0)THEN 
AMEDI=(X( INDX(N/2))+X( INDX(N/2+1)))/2 
ELSE 
AMEDI=X( INDX(N/2+1) ) 
ENDIF 
RETURN 
END 
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NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


147 SUBROUTINE SRTNDXCY,N, INDX) 
148 C INPLACE SORT USING SHELL ALGORITHM *%%xirro 
149 C USES INDEXES TO SORT BY TO PRESERVE ORIGINAL ORDER OF Y ARRAY 


150 REAL Y(*) 

151 INTEGER*2 GAP, INDX(*) , ITEMP 
152 INTEGER N 

153 LOGICAL EXCH 

154 C 

155 GAP=(N/2) 

156 5 IF (.NOT.(GAP.NE.0)) GO TO 500 
157 10 CONTINUE 

158 EXCH=. TRUE. 

159 K=N-GAP 

160 DO 200 I=1,K 

161 KK=I+GAP 

162 IF(. NOT. (Y( INDX(I)). GT. YCINDX(KK)))) GO TO 100 
163 ITEMP=INDX(I) 

164 INDX( I)=INDX(KK) 

165 INDX(KK)=ITEMP 
166 EXCH=. FALSE. 

167 100 CONTINUE 

168 200 CONTINUE 

169 IF (.NOT. (EXCH)) GO TO 10 
170 GAP=(GAP/2) 
gis GO TO 5 

172 500 CONTINUE 

173 RETURN 

174 END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


175 INCLUDE 'NPRIES. FOR’ 

176 SUBROUTINE NPRIES(IX,N,EVAL) 

177 C COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING THE PRIESTLY FORMULA 
178 C THE NORMAL AR1 PROCESS HAS RHO PASSED BY 

179 C COMMON STORAGE. 


180 REAL*8 IX 

181 REAL*4 X(600) ,MEAN,A,B,XBAR1,XBAR2,MUHAT, 
182 *SUM1,SUM2 

183 COMMON RHO 

184 CALL AR1(IX,X,N) 
185 A=0 

186 B=0 

187 XBAR1=0 

188 XBAR2=0 

189 SUM1=0 

190 SUM2=0 

191 DO 1 I=1,N-1 

192 A=A+X(1)*X(I) 
193 B=B+X(I)*X(1I+1) 
194 XBAR1=XBAR1+X(I) 


Py95y 1 XBAR2=XBAR2+X(I+1) 
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16 
197 
bis 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
220 
Za 1 
Za 


C 


Cale C2 C2 C2 CD ee) 


Weieeee>.) I; ,1, Si)’ ,x(1),'A: ',A,'B: ‘YB,’ XBAR1: ',XBAR1,'XBA 


*R2: ' ,XBAR2 

XBAR1=XBAR1/(N-1) 

XBAR2=XBAR2/(N-1) 

MUHAT=( A*XBAR2-B*XBAR1) /((A-B)+((N-1)*XBAR1*( XBAR2 -XBAR1) ) ) 
DO.2 1=1,N-1 
SUM1=SUM1+( X( 1) -MUHAT)*( X( I+1) -MUHAT) 
SUM2=SUM2+( X( I) -MUHAT) **2 

EVAL=SUM1/SUM2 

WRITE(5,**)'SUM1: ',SUM1,'SUM2: ' ,SUM2 
WRITE(5,*) 'PREISTLY MUHAT' , MUHAT 
WRITE(5,*)'XBAR1: ',XBAR1, XBAR2: ' ,XBAR2 
WRITE(5,*)'A: ',A,' B: ',B,' N: ',N 
WRITE(5,*)'X>>>>> ' ,(X(I) ,I=1,N) 
WRITE(5,*)'PRIESTLY RHO: ' ,EVAL 

RETURN 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


Za 3 
214 
ZS 
216 
217 
218 
29 
220 
ae1 
bg J) 
INILS: 
224 
22) 
226 
Z2/ 
220 
229 
230 
rigslt 
252 
253 
234 
255 
236 
23 / 


C 


C 


INCLUDE 'NROBUS. FOR’ 
SUBROUTINE NROBUS(SEED,N,EVAL) 


THIS ROUTINE GENERATES A STREAM OF R.V.S, AND THEN PERFORMS ROBUST 


REGRESSION ON THEM TO ESTIMATE RHO. 


THE CURRENT STREAM IS AR(1) NORMAL R.V.S. 


REAL*8 SEED 
REAL*4 X(600),Y(600) ,B(1),XX(1,1),XXI(1,1),XY(1,1) 
REAL*4 RMED1,RMED2 ,RMED3,SR1,SR2,SR3,SY,CR,W(600) ,U( 600) 
REAL*4 WX(600,1),WY(600) ,EVAL 
INTEGER N,I,IN 
COMMON RHO 
DADiwor, 1.0/CR/4. 2/CY/1.0/ 
DATA NN/1/IPAS/5/ 
IO 
CALL AR1(SEED,X,N) 
CONSTRUCT X AND Y VECTORS FROM X ARRAY 
DO 1 I=1,N-1 
Y(I)=X(I+1) 
IN=N-1 
a= 
CALL ROBREG(X,Y,B,IN,NN, 1X1, 1X2,CR,XX,XXI,XY,W,U,WX,WY, IPAS) 
EVAL=B( 1) 
WRITE(5,*) EVAL: ' ,EVAL 
RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


238 
Hs OY) 
240 
241 
242 
243 


©u@ ©) 2 &) 


SUBROUTINE ROBREG(X,Y,B,M,N,1X1,1X2,C,XX,XXI,XY,W,U,WX,WY, IPAS) 
ROBUST REGRESSION ON Y=X*B 


RRE 


IPAS=MAX # REGRESSION PASSES. 1 FOR STD (I.E. NON-ROBUST) REGRESSION RRE 


X=M BY N MATRIX CONTAINED IN AN ARRAY OF DIM(CIX1,1X2) 
Y=M-VECTOR CONTAINED IN AN ARRAY OF DIM(CIX1) 
B=N-VECTOR CONTAINED IN AN ARRAY OF DIM(IX2) 


ms 


RRE 
RRE 
RRE 


244 
245 
246 
247 
248 
249 
250 
25 1 
BZ 
MS: 
254 
Z5 
256 


C2) C2 C2" @) Oa) Gace) 


Gao 


C 


Segal 


200 


C 

i 
C 
C 
CS 


204 
C 


C 
C 


XX ,XXI=WORK ARRAYS OF DIM(1IX2,IX2) 
W,U,WY=WORK ARRAYS OF DIM(IX1) 
WX=WORK MATRIX OF DIM(IX1,1X2) 
XY=WORK ARRAY OF DIM(IX2) 
WK=WORK ARRAY OF DIM(N**2 + 3%*N) OR LARGER 
C=CONSTANT. USUALLY = 6. 
CRITERION FOR STOPPING IS WHEN VARIATION IN CONST. TERM < 1% 
IT USES SEVERAL SUBROUTINES FROM IMSL FOR MATRIX INVERSION, 
MULTIPLICATION, ETC. ALSO USES PXSORT TO SORT ARRAY. 
REAL*4 X(1IX1,1X2),XX( 1X2, 1X2) ,XXI(IX2,1X2) 
REAL*4 Y(IX1),WK(600) 
REAL*4 B( IX2) ,W(IX1),XY( 1X2) ,BB,WX(IX1,1X2),WY(1IX1) 
REAL*4 U(IX1),C,S,4M,R,SS,SUM1 
NPAS=0 
ZERO=0 
SUPPRESS ERROR MESSAGES: UNDERFLOW AND IMSL 
CALL ERRSET(208,300,-1,1) 
CALL UERSET(0,LEVOLD) 
AM=(M+1. )/2. 
IM=AM 
R=AM-IM 
B(1)=-999999. 
DO 5 I=1 ,M 
WY(I)=Y(I) 
DO 6 J=1,N 
WX(I,J)=X(I,J) 
6 CONTINUE 
5 CONTINUE 


10 CONTINUE 

NPAS=NPAS+1 

CALL VMULFM(WX,WX,M,N,N, 1X1, IX1,XX, 1X2, IER) 
VMULFM PERFORMS X TRANSPOSE X. WE CAN DO IT WITH A DO LOOP, SINCE 
N THIS CASE X IS A VECTOR. RESULT GOES IN XX (DIM 1,1) 


XX(1,1)=0 
DO 200 I=1.M 
XX(1,1)=XX(1,1)4+WXC(I,1)**2 
IER=0 
IF (IER. GT.0) WRITE (6,109) IER 
09 FORMAT( ‘ERROR: ',2110) 
CALL VMULFM(WX,WY,M,N,1,1X1,1X1,XY,1X2,IER) 


VMULFM PERFORMS MATRIX MULTIPLICATION. WE WILL DO IT WITH A DO LOOP 


INCE X AND Y ARE VECTORS. RESULT GOES IN XY (DIM 1,1). 
XY(1)=0 
DO 201 I=1,M 
XY(1)=XY(1)4+WX(1,1)*WY(I) 
IER=0 
IF (IER.GT.0) WRITE (6,109) IER 
CALL LINV2F(XX,N,1X2,XXI, ZERO,WK, IER) 


LINV2F FINDS THE INVERSE OF A MATRIX (X TRANSPOSE X). WE WILL DO IT 


C WITH A DO LOOP, SINCE X IS A VECTOR IN THIS CASE. RESULT INTO XxXI. 


C 


XXIC1, D=15%0 


IF (IER. GT.0) WRITE (6,109) IER 
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RRE | 


RRE 
RRE 
RRE 


RRE © 


RRE 


RRE 


RRE © 


RRE 


RRE 


RRE © 


RRE 


RRE 
RRE 


RRE © 


RRE 


RRE — 
RRE | 


RRE © 


RRE 


RRE | 


RRE 


RRE 
RRE 


RRE | 


300 
301 
2. 
303 
304 
305 
306 
30 / 
308 
309 
S10 
om 
B14 
o13 
314 
34) 
316 
Sn / 
3.8 
519 
320 
YEN 
Sg i) 
a2 3 
324 
ae) 
326 
B2/ 
328 
229 
330 
op 
ep 2 
S576) 
334 
550 
336 
357 
338 
309 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 


C 
C 


BB=B( 1) 


CALL VMULFF(XXI,XY,N,N,1,1X2,1X2,B,1X2,IER) 
PERFORMING X TRANSPOSE X INVERSE TIMES X TRANSPOSE Y. 
C B (DIM 1). 


C DEALING WITH VECTORS. 


if 


C 


202 


C 


4 
il 


1 


oat 


20 


79 
05 


99 


ol 
Z5 
5 
40 


og 


BC 1)=XY(1)*XXI( 1,1) 


IF (IER.GT.0) WRITE (6,109) IER 
WRITE(6,101)(B(1I), I=1,N) 


FORMAT( 5F20. 10) 


IF(NPAS .GE. IPAS) GO TO 99 
IF (ABS(BC1)-BB) .L 
Sani VuULrF(X, Byw,N,1,TATSIX2 ,W, 1X1, TER) 

C YHAT COMES FROM X TIMES B, DONE WITH A DO LOOP SINCE WE HAVE VECTORS. 


DO 202 I=1,M 
WCI)=X(1I,1)*BC 1) 


IF (IER. GT.0) WRITE (6,109) IER 
C COMPUTE RESIDUALS AND MEDIAN OF ABSOLUTE RESIDUALS 


DO 20 I=1,M 
W( I)=Y(1)-W(I) 
U( 1)=ABS(W(I)) 
CALL PXSORT(U,1,M) 


‘i 


.O1*ABS(BB)) GO TO 99 


WRITE(6, 499) (U(I),I=1,M) 


FORMAT( 6F20. 10) 
FORMAT( 8F 10. 7) 


S=UC IM) + R*( UC IM+1)-UC IM) ) 


S=C*CeSES 
SS=S*7", 5 
WRITE(6, 
FORMAT( 
DO 40 I=1,M 

WCI)=WwC1)*WCI)/S 


199) SS 


Gee) .F20: 10) 


Weeere) . LT. 1.) GO TO 25 
FACTOR IS 0. IN THIS CASE 


WY(1)=0. 

DO 31 J=1,N 
WX(1,J)=0. 

CONTINUE 

GO TO 40 

WO1)=C1-W(T)) 

DO 35 J=1,N 

WX(1I,J)=X(1,J)*W(T) 

WY(1)=¥(1)*W(T) 

CONTINUE 

GO TO 10 

CONTINUE 

RETURN 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 


NUMBER OF ERRORS 


3507C 
3) lea & 


SUBROUTINE PXSORT 


(M1) 


IN PROGRAM UNIT: 0 


lg 


RESULT INTO 


DONE WITHOUT A SUB CALL IN THIS CASE, SINCE WE'RE 


RRE 


RRE 


RRE 
RRE 


RRE 


PXS 
PXS 


352 
YTS 
354 
355 
356 
537 
356 
359 
360 
50 1 
g62 
363 
364 
365 
366 
367 
368 
369 
370 
a7 1 
6 4 
373 
374 
375 
376 
BF 
378 
379 
380 
381 


PURPOSE PXS 


SUBROUTINE PXSORT IS INTENDED TO REARRANGE AN ARRAY OF REAL*4 PXS 
DATA INTO ASCENDING ORDER BETWEEN TWO SPECIFIED INDICES. PXS@ 


CALLING SEQUENCE PXS 
CALL PXSORT(A, II, JJ) PXS 
ARGUMENTS PXS 


Ae, 
>S 
ep) 


A A SINGLE DIMENSIONED ARRAY OF REAL*4 DATA TO BE PXS 
SORTED INTO ASCENDING ORDER. DIMENSIONED TO AT LEAST JJ. PXS 


Ii THE STARTING INDEX FOR THE ORDERING OF A, PXS 
E.G. , II=1 IF THE WHOLE ARRAY IS TO BE SORTED. PXS 


wai THE ENDING INDEX FOR ORDERING A. PXS © 
USAGE PXS 


THE ARRAY A WILL BE SORTED INTO INCREASING ORDER SO THAT PXS 
ACI) < A(I+1) FOR I = II,lI+1,..- iis PXS — 


AS, 
mS 
Yn 


PXSORT WILL ONLY SORT REAL*4 DATA, NOT REAL*8, INTEGER, OR 
ALPHANUMERIC DATA. 


SUBROUTINES REQUIRED 

NONE. 
METHOD 

SINGLETON'S VERSION OF THE PARTITION EXCHANGE SORT IS 
USED. THE PROGRAM IS ESSENTIALLY COPIED FROM THE ASSOCIATION 
FOR COMPUTING MACHINERY'S ALGORITHM 247, "SORTING WITH 
MINIMAL STORAGE. '"' 
PROGRAMMER: IMPLEMENTED AT NPS BY D.W. ROBINSON 


DATE: APR 74 


Cece sree) CG) GaneieG) Gl ClmeisG) G2 Ct) CG) Gl C2 CG) G2 co? C) C2 C2 C2 CI Ci Cayo II Ia ee ee es eae a 


397 SUBROUTINE PXSORT(A,II,JJ) 


ee) 
‘oO 
© 
> 


399 DIMENSION A(JJ),1U(16),IL(16) 
400 M=1 

401 I=II 

402 J=JJ 

403 5 IF(I .GE. J)GO TO 76 

404 10 K=I 

405 IJ=(I+J)/2 

406 T=A(IJ) 

407 IF(AC1) . LE. “CemEOrZO 
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408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 


451 
452 
453 
454 
455 
456 
457 


NUMBER OF WARNINGS IN PROGRAM UNIT: 
NUMBER OF ERRORS IN PROGRAM UNIT: 
NUMBER OF WARNINGS IN COMPILATION : 
NUMBER OF ERRORS IN COMPILATION : 


20 


30 


40 


50 


60 


70 


80 


90 


100 


A(IJ)=A(1) 

KADER 

T=A(IJ) 

L=J 

IF(A(J) .GE. T) GO TO 40 
A(IJ)=A(J) 

A(J)=T 

T=A(IJ) 

IF(A(I) .LE. T) GO TO 40 
AG1I)=A(1) 

eny—1 

WAC 

GO TO 40 

TT = A(L) 

ACL) = ACK) 

AekK STL 

L=L-1 

ipeAch) .Gr. T) GO TO 40 
K=K+1 

iECaCK) «LT. ©) GO TO 50 
iHCeeh, Ineco TO 30 
IF(L-I .LE. J-K) GO TO 60 
IL(M)=I 

TU(M)=L 

(= 

M=M+1 

GO TO 80 

IL(M)=K 

IU(M)=J 

J=L 

M=M+1 

GO TO 80 

M=M-1 

IF(M .EQ. 0) RETURN 
I=IL(M) 

J=IUCM) 

WE(J-I .GE. 11)GOeTOw10 
mer ro. Il) CO TOs 
I=I-1 

[=I+1 

TECIMMEO. J) GO TO’ 70 
inCA@h) .UEe A(I+1)) Gommo 90 
T = A(I+1) 

Kes 

A(K+1)=A(K) 

K=K-1 

HaGuesim ACK)) GO TO 100 
A(K+1)=T 

GO TO 90 

END 


Ooo ©} 
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PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 


WOnNAN LE WN Fe 


Sp ge 


C2 


@ “cae 


SIMTBED DRIVER FOR BETA-L-LAPLACE TRANSFORM AR PROCESS 


SMTB12 


REAL*4 Y(6500),YMIN, YMAX, V(8),RHO,LL,ALPHA 
CHARACTER*120 T1,T2,T3,T4,T5 

REAL*8 IX1,1X2,1X3, 1X4, 1X5,1X 

INTEGER N, M, NE(8), L, D, RG, SEI, SVS, NEST,NCOLRNDX(3) 
EXTERNAL BMOM,BCRES1,BBBB,ROBUST 


REAL VMSE(8,5), VMX1(8,4) ,VMX2(8,4) , VMX3(8,4) , VMX4(8,4) , VMX5(8,4) 


COMMON ALPHA, LL 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
* .95 
DATA 
eS) 
DATA 
* 195 
DATA 
ve 95 
DATA 


N/6000/ 

M/  20/ 

NE/ 20,60,100,150,200,250,350,500/ 

L/ 8/ 

D/ 4/ 

RG/ 1/ 

SEI/ 0/ 

SVS/ 0/ 

YMIN/ 0. / 

YMAX/ 0. / 

IX/ 88771. D0/ 

IFILE /1/ 

NPRT /1/ 

MSE rele 

VMSE /32%*0. 8963,8%0/ 

IPR /0/ 

IBIV /0/ 

IRSTR /1/ 

T2/ '***Rho(.8963) of SqrtBeta L laplace AR r.v.s, A= 
Using Robust Least Squares estimator (C=4.2)'/ 

T3/ ‘%*#*Rho(. 8963) of SqrtBeta L laplace AR r.v.s, A= 
Using moment estimator’ / 

T4/ ‘***Rho(. 8963) of SqrtBeta L laplace AR r.vs., A= 
Using Cressie Estimator’ / 

T5/ ‘***Rho(. 8963) of SqrtBeta L laplace AR r.vs., A= 
Using Priestly Estimator'/ 

ICOLOR/1/ IBWPRT/1/ NCPRT/3/NCOLRNDX/1,2,7/ 


OPEN( 06,FILE='bf1. OUT' ,ERR=999 , IOSTAT=IER) 
OPEN(05,FILE='CON ‘' ,ERR=999 , IOSTAT=IER) 


OPEN(02,FILE='bf1. RST' ,ERR=999 , IOSTAT=IER , FORM=' UNFORMATTED' , 


C ACCESS=' SEQUENTIAL’ ) 


OPEN(01,FILE='Bf1l. DAT’ , FORM='FORMATTED' , ACCESS='SEQUENTIAL' ) 


GENERATOR PARAMETERS 
NEST=4 


NSR=3 
LL= . 


oS 


ALPHA=0. 84 


TIX1=IX 
IX2=IX 
IX3=IX 
IX4=1X 
TX5=IX 


120 


.84, L= 
.84, L= 
.84, L= 


RST 
RST 


RST 
RST 
RST 
RST 


RST 
RST 
RST 
RST 
RST 
RST 
RST 


RST 
RST 


RST 
RST 


.84, L= 


RST 


RST 
RST 
RST 
RST# 





bi eee RST 
56 C 

57 CALL SIMTBED(IX1,IX2,1X3,I1X4,1X5,Y,N,M,NE,L,D,NSR,RG,SEI,SVS, 

58 * YMIN,YMAX,NEST, robust,t2,BCRES1,T4,BMOM,T3,BBBB,T5 ,BMOM,T3,IFILE 

59 * \NPRT,MSE,VMSE, IPR, VMX1, VMX2, VMX3, VMX4, VMX5, IBIV, IRSTR, ICOLOR, 

60 * IBWPRT , NCPRT , NCOLRNDX) 

61 STOP 

62 C 

63 999 CONTINUE 

64 WRITE(6,%*) ‘%2%%%%" ERROR OPENING FILE 1, 2 or 6 ' 

65 END RST 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


66 
67 
68 
69 
70 
7a. 
Ua 
73 
74 
75 
76 
77 
78 
Pg 
80 
oul 
82 
83 
84 
85 
86 


INCLUDE 'BELAR1. for' 

SUBROUTINE BELAR1(SEED , ALPHA,L,N,X) 
C THIS SUBROUTINE GENERATES CORRELATED L LAPLACE R.V.S USING THE 
C BETA SQUARE ROOT TRANSFORMATION AND THE L LAPLACE DISTRIBUTION 
C THE L LAPLACE DISTRIBUTION IS GENERATED AS THE DIFFERENCE OF 
C 2 GAMMA(L,1) RANDOM VARIABLES. 

REAL*8 SEED 

REAL*4 ALPHA,L,X(*),Y(5100) ,A(5100) ,B(5100),E,F 

INTEGER N 
C FIRST GENERATE THE L LAPLACE STREAM OF R.V.S 
C THIS WAS FOR USING IMSL SSTAT18A RANDOM NUMBER GENERATORS 
C CALL RNSET( 12345678) 

CALL LGAMPC(SEED,X,N,L) 

CALL LGAMPC(SEED,Y,N,L) 

Poo f—1.N 
10 YOM =XC1)-YC1) 
C NOW GENERATE THE BETA R.V.S (2 STREAMS) 


CALL LBETPC(SEED,A,N, L*ALPHA, L*(1-ALPHA) ) 
CALL LBETPC(SEED,A,N,L*(1-ALPHA) , L*ALPHA) 
C WRITE(5,*) (ACI), I=1,N) 
C WRITE(5,*)(BCI) , 1=1,N) 
C ACI) IS NOW BETA(L*ALPHA, L*(1-ALPHA) ) 
C B(I) IS NOW BETA(L*(1-ALPHA) , L*ALPHA) 
XC =6 1) 
bom 1=2 .N 
C Wrens, 50) A ,ACI),'B',BCI), I ,I 
50 FORMAT(' *',A,E15.6,A,E15.6,A,14) 
C CHECK FOR UNDERFLOW BEFORE SQRT IS DONE 


IF(AC1). LE. 1E-7) THEN 
c WRITE(5,*)'ACI)' ,ACI) 
AC I)=1E-7 
E=A(1I)***0. 5 
ELSE 
Cc WRITE(5,*) ‘ROOTING A... ,I 
E=A(1I)**0. 5 
ENDIF 
IF(B(I). LE. 1E-7) THEN 
C WRITE(5,*)'BCI)' ,BCI) 
B(1)=1E-7 


121 


Oy 
108 
109 
Laue, 
ie 
eZ 
I08: 
114 
IAS: 
116 
127 
118 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 


C 


C 
C 


12 


NUMBER 


119 
120 
LZ 
ay 
TZ 
124 
i> 
126 
ey 
128 
Le, 
130 
ro Al 
132 
Sys) 
134 
135 
136 
17 
138 
ILS, 
140 
141 


C22 Claice 


NUMBER 
NUMBER 


142 
143 
144 
145 
146 
147 
148 
149 


C 


C 


F=B(1)**0. 5 
ELSE 
WRITE(5,*)' ROOTING B...',I 
F=B(1)**0. 5 
ENDIF 


A MINUS SIGN AT THE START OF LINE 12 INDICATES WE ARE CONTSTRUCTING 
NEGATIVE CORRELATIONS. 


X(I)=-X(C1I-1)*E+Y(1)*F 
RETURN 
END 


OF ERRORS IN PROGRAM UNIT: 0 


INCLUDE 'BMOM. for' 
SUBROUTINE BMOM( IX,N,EVAL) 
LAG 1 SERIAL CORRELATION OF BETA L LAPLACE R.V.S , RHO=0. 7996 
USING XBAR TO ESTIMATE MU 
L AND ALPHA OF THE BETA AR PROCESS ARE PASSED TO THE 
GENERATOR BELAR1 THROUGH COMMON STORAGE 
REAL*8 IX 
REAL*4 X(600),MEAN,ALPHA,L 
COMMON ALPHA,L 
CALL BELAR1(1X,ALPHA,L,N,X) 
SUM=0 
SUM1=0 
Doel l= iN 
SUM=SUM+X(I) 
MEAN=SUM/N 
SUM=0 . 
DO 2 I=2,N 
SUM=SUM+( X( I) -MEAN)*( X(I-1)-MEAN) 
SUM1=SUM1+(X(1) -MEAN)**2 
EVAL=SUM/SUM1 
WRITE(S¢*) SER’ COR  —aea clr 
RETURN 
END 





e 
OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


INCLUDE 'BBBB. for' 
SUBROUTINE BBBB(IX,N,EVAL) 
COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING THE PRIESTLY FORMULA 
THE BETA LAPLACE PROCESS HAS ALPHA AND L PASSED BY 
COMMON STOR/GE. 
REAL*8 IX 
REAL*4 X( 600) ,MEAN,MEANINPU, STDINPU,A,B,XBAR1,XBAR2 , MUHAT 
REAL SUM1,SUM2,ALPHA,L 
COMMON ALPHA,L 
WRITE(5,*)'ENTERED BPRIES N: ',N,L,ALPHA 
CALL BELAR1( IX,ALPHA,L,N,X) 
A=0 
B=0 





122 





155 
156 
ey 7 
15s 
Ty 
160 
161 
162 
163 
164 
165 
166 
G7 
168 
169 
170 
1 Al 
iy 2 
BS 
174 
175 
176 
7 
178 
9 
180 


fo 


Cltea ca) Cac? C2 


XBAR1=0 

XBAR2=0 

SUM1=0 

SUM2=0 

DO 1 I=1,N-1 

=A+X(I)*X(1) 

B=B+X( I )*X(I+1) 

XBAR1=XBAR1+X(I) 

XBAR2=XBAR2+X( I+1) 

MeEC Ss.) 1: (1 et) ee At eA Bre eB, XBADI: ' XBAR1,'XBA 


*R2:' |XBAR2 


XBAR1=XBAR1/(N-1) 

XBAR2=XBAR2/(N-1) 

MUHAT=( A*XBAR2-B*XBAR1) /((A-B)+((N-1)*XBAR1*( XBAR2-XBAR1) ) ) 
DO 2 I=1,N-1 
SUM1=SUM1+( X( I) -MUHAT )*( X( I+1) -MUHAT) 
SUM2=SUM2+( X( 1) -MUHAT ) ***2 

EVAL=SUM1/SUM2 

WRITE(5,*)'SUM1: ',SUM1,'SUM2: ' ,SUM2 
WRITE(5,*)' PREISTLY MUHAT’ , MUHAT 
WRITE(5,*)'XBAR1: ',XBAR1, XBAR2: ',XBAR2 
WRITE(5,*)'A: ',A,' B: ',B,' N: ',N 
WRITE(5,*) 'X>>>>> ' (X(T) , 1=1,N) 
WRITE(5,*)' PRIESTLY RHO: ° ,EVAL 

RETURN 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


181 
182 
153 
184 
185 
186 
iS 7 
188 
189 
190 
1 
12 


INCLUDE ‘ROBUST. for' 
SUBROUTINE ROBUST(SEED,N,EVAL) 


C THIS ROUTINE GENERATES A STREAM OF R.V.S, AND THEN PERFORMS ROBUST 
GC REGRESSION ON THEM TO ESTIMATE RHO. 
C THE CURRENT STREAM IS AR(1) NORMAL R.V. 5. 


REAL*8 SEED 

REAL*4 X(600),Y(600),B(1),XX(1,1),XXI(1,1),XY(1,1) 
REAL*4 RMED1,RMED2 ,RMED3,SR1,SR2,SR3,SY,CR,W(600) ,U(600) 
REAL*4 WX(600,1),WY(600) , EVAL 

INTEGER N,I,IN 

COMMON ALPHA,L 

DATA CY/1. 0/CR/4. 2/CY/1. 0/ 

DATA NN/1/IPAS/5/ 

IX2=1 

CALL BELAR1(SEED,ALPHA,L,N,X) 


C CONSTRUCT X AND Y VECTORS FROM X ARRAY 


il 


DO ali sN asl 
Y(1I)=X(I+1) 

IN=N-1 

IX1=IN 

CALL ROBREG(X,Y,B,IN,NN,IX1,IX2,CR,XX,XXI,XY,W,U,WX,WY, IPAS) 
EVAL=B( 1) 

WRITE(5,*)'EVAL: ',EVAL 

RETURN 

END 
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NUMBER OF WARNINGS IN PROGRAM UNIT: 0O 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


206 SUBROUTINE ROBREG(X,Y,B,M,N,1X1,1X2,C,XX,XX1,XY,W,U,WX,WY, IPAS) 

207 C ROBUST REGRESSION ON Y=X*B RRE 
208 C IPAS=MAX ## REGRESSION PASSES. 1 FOR STD (I.E. NON-ROBUST) REGRESSION RRE 
209 C X=M BY N MATRIX CONTAINED IN AN ARRAY OF DIM(1IX1,1X2) RRE 
210 C Y=M-VECTOR CONTAINED IN AN ARRAY OF DIM(IX1) RRE 
211 C B=N-VECTOR CONTAINED IN AN ARRAY OF DIM(IX2) RRE 
212 C XX,XXI=WORK ARRAYS OF DIM(1X2,1X2) RRE 
213 C W,U,WY=WORK ARRAYS OF DIM(IX1) RRE 
214 C WX=WORK MATRIX OF DIM(1X1,1X2) RRE 
215 C XY=WORK ARRAY OF DIM(IX2) RRE 
216 C =WORK ARRAY OF DIM(N**2 + 3*N) OR LARGER RRE 
217 C C=CONSTANT. USUAIIYe — 9c. RRE 
218 

219 

220 

200 

222 C CRITERION FOR STOPPING IS WHEN VARIATION IN CONST. TERM < 1% RRE 
223 C IT USES SEVERAL SUBROUTINES FROM IMSL FOR MATRIX INVERSION, RRE 
DIES MULTIPLICATION, ETC. ALSO USES PXSORT TO SORT ARRAY. RRE 
225 REAL*4 X(1X1,1X2), XXCIX2, 1X2) eee 

226 REAL*4 Y(IX1),WK(600) 

227 REAL*4 B(IX2),W( 1X1) ,XY( 1X2) ,BB,WX( 1X1, 1X2) ,WY( 1X1) 

228 REAL*4 UC IX1),C,S,4M,R,SS,SUM1 

229 NPAS=0 RRE | 
230 ZERO=0 RRE | 
931°C SUPPRESS ERROR MESSAGES: UNDERFLOW AND IMSL RRE | 
937 CALL ERRSET( 208,300,-1,1) RRE | 
233 C CALL UERSET(0,LEVOLD) RRE | 
234 AM=(M+1. )/2. RRE- 
235 IM=AM RRE © 
236 R=AM-IM RRE 
237 B(1)=-999999. RRE © 
238 ae) SS RRE- 
239 WY) =e) RRE 
240 DO 6 J=1,N RRE 
Peal WXCI .J)=X(1,J) RRE © 
242 6 CONTINUE RRE 
243 S CONTINUE RRE 
244 C RRE- 
245 10 CONTINUE RRE 
246 NPAS=NPAS+1 RRE 
29 -C CALL VMULFM( WX ,WX,M,N,N,1IX1,1X1,XX,1X2,IER) RRE 


248 C VMULFM PERFORMS X TRANSPOSE X. WE CAN DO IT WITH A DO LOOP, SINCE 
249 C IN THIS CASE X IS A VECTOR. RESULT GOES IN XX (DIM 1,1) 


251 Odi Ee. 

252 DO 200 I=1,M 

253 200 XX(1,1)=XX(1,1)+WX(1I,1)**2 

254 IER=0 | 
255 C IF (IER.GT.0) WRITE (6,109) IER RRE | 
256 109 FORMAT('ERROR: ' ,2I10) ; RRE | 


257 C CALL VMULFM(WX ,WY,M,N,1,IX1,IX1,XY,IX2, IER) RRE- 
258 C VMULFM PERFORMS MATRIX MULTIPLICATION. WE WILL DO IT WITH A DO LOOP | 
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Ces INCE 24ND YeeREe VECTORS. RESULT GOES IN XY (DIM 1,1). 


20 


C 
C 


C 
C 


C 
C 


XY(1)=0 
DO 201 I=1,M 


XY(1)=XY(1)4+WX(1I,1)*WY(I) 


IER=0 
ee EG lenO 


) WRITE (6,109) IER 


CALL LINV2F(XX,N,1X2,XXI,ZERO,WK, IER) 
C LINV2F FINDS THE INVERSE OF A MATRIX (X TRANSPOSE X). WE WILL DO IT 
C WITH A DO LOOP, SINCE X IS A VECTOR IN THIS CASE. RESULT INTO XXI. 


XXI(1,1)=1/XX(1,1) 


PESGIER. GT. 0 
BB=B( 1) 


) WRITE (6,109) IER 


Cenk VIUEr Eh xAXT AY N,N,1,1X2,1X2,B,1X2,IER) 

C PERFORMING X TRANSPOSE X INVERSE TIMES X TRANSPOSE Y. RESULT INTO 
C B (DIM 1). DONE 
GC DEALING WITH VECTORS. 


B( 1)=XY(1)*X 


PeSCTER. GI. 0 
WRITE( 6,101) 


WITHOUT A SUB CALL IN THIS CASE, SINCE WE'RE 


XI(1,1) 


) WRITE (6,109) IER 
(BC 1),1=1,N) 


101 FORMAT(5F20. 10) 


C 


ZZ 


C 


IF(NPAS .GE. 
IF (ABS(B(1) 


PEAS) GO 10 99 
Shoe Gls). 01ABS(BB)) GO TO 99 


CALL VMULFF(X,B,M,N,1,IX1,1X2,W,1IX1,IER) 
C YHAT COMES FROM X TIMES B, DONE WITH A DO LOOP SINCE WE HAVE VECTORS. 


DO 202 I=1,M 
W(1)=x(1,1)* 


be (BER. CT. 0 


BC 1) 


WRITE. .66,,105% IER 


GC COMPUTE RESIDUALS AND MEDIAN OF ABSOLUTE RESIDUALS 


20 


499 
105 


[33 


DO 20 I=1,M 
W(I)=Y(1)-W( 
U(1)=ABS(WC(I 


I) 
)) 


CALL PXSORT(U,1,M) 


WRITE(6, 499 
FORMAT( 6F20. 
FORMAT( 8F10. 
S=U( IM) + R* 
S=C-« C*S*S 
IF(S. LT. 1E-0 
WRITE(5,*)'S 
R 
S=1.E-0 
ss=l.e- 
ELSE 
SS=S**, 5 
ENDIF 
FORMAT( ' 
De) 40 I=1,M 
WC I)=WCI)*W( 


ecw) . LT. 


FACTOR IS 0. 
WY(I)=0. 


) CU CO ie ly 

10) 

y) 

(UC IM+1)-UC IM) ) 

7) THEN 

: IN ROBREG: ',S,'(SET 1 1E-07) UCIM)',U(CIM),'‘R', 

7 

14 

CS: ' ,F20. 10) 

I)/S 
iaco@To"s 


IN THIS CASE 
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RRE 


RRE 
RRE 
RRE 


RRE 
RRE 


RRE 
RRE 


RRE 


RR 
RRE 
RRE 
RRE 
RRE 
RRE 


o> DO 31 J=1,N 


316 WXCI,J)=0. 
oy? 31 CONTINUE 

Sule! GO TO 40 

Brg 25 WCI)=(1-WCI1)) 
320 DO 35 J=1,N 

Syl 35 WXC1I,J)=XC1I,J)*WC1) 
Sif. 7! WYCI)=YC12)*WC I) 
Sia" 40 CONTINUE 

324 GO TO 10 

32) 99 CONTINUE 

326 RETURN 

Be) END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


328 
SN, 
330 
55 
Do 
335 
334 
355 
220 
Saou, 
359 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
35.0 
Soi 
Be 
355 
354 
S15 
a0 


SUBROUTINE PXSORT (M1) 
PURPOSE 


SUBROUTINE PXSORT IS INTENDED TO REARRANGE AN ARRAY OF REAL*4 
DATA INTO ASCENDING ORDER BETWEEN TWO SPECIFIED INDICES. 


CALLING SEQUENCE 
CALL PXSORT(A, II, JJ) 
ARGUMENTS 


A A SINGLE DIMENSIONED ARRAY OF REAL*4 DATA TO BE 
SORTED INTO ASCENDING ORDER. DIMENSIONED TO AT LEAST JJ. 


Jbat THE STARTING INDEX FOR THE ORDERING OF A, 
E.G. , II=1 IF THE WHOLE ARRAY IS TO BE SORTED. 


JJ THE ENDING INDEX FOR ORDERING A. 
USAGE 


THE ARRAY A WILL BE SORTED INTO INCREASING ORDER SO THAT 
ACI) < ACI+1) FOR I = II,II+1,...,JJ-2,JJ-1. 


PXSORT WILL ONLY SORT REAL*4 DATA, NOT REAL*8, INTEGER, OR 
ALPHANUMERIC DATA. 


SUBROUTINES REQUIRED 
NONE. 
METHOD 
SINGLETON'S VERSION OF THE PARTITION EXCHANGE SORT IS 


USED. THE PROGRAM IS ESSENTIALLY COPIED FROM THE ASSOCIATION 
FOR COMPUTING MACHINERY'S ALGORITHM 247, “SORTING WITH 


re emcee ernice) (Co) Curcue@? Caen GC) C2 CC) C20) C2 C2 C2 Caco Co Ci Ci CoaCy Godda 
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JOW 
368 
a9 
370 
oy 1 
OMeZ 
a) 
374 
oT) 
O76 
377 
378 
ow 
380 
381 
382 
363 
384 
385 
386 
387 
388 
Saye 
390 
a9 1 
S92 


Gare C2 GC) C272) ca 


—) 


20 


30 


40 


50 


60 


70 


80 


MINIMAL STORAGE. "' 
PROGRAMMER: IMPLEMENTED AT NPS BY D.W. ROBINSON 
DATE: APR 74 


SUBROUTINE PXSORT(CA,II,JJ) 


DIMENSION AC JJ) ,1UC16),IL( 16) 
M=1 

I=II 

J=IJ 

HCl .2GE. J)GO TO 70 

K=I 

IJ=(I+J)/2 

T=A( IJ) 

Teescr). LE.) @ G0 10. 20 
AC IJ)=ACT) 

AC I)=T 

T=A( IJ) 

L=J 

IF(ACJ) .GE. T) GO TO 40 
AC IJ)=AC J) 

A( J)=T 

=A( IJ) 

IP CACL) - LE 1 eGo 10.40 
AC IJ)=ACT) 

AC 1I)=T 

T=A(C IJ) 

GO TO 40 

TT = ACL) 

ACL) = ACK) 

AC K)=TT 

L=L-1 

IFCACL) .GT. T) GO TO 40 
K=K+]1 

iecACkK) .LT. T) GO TO 50 
IFCK .LE. L) GO TO 30 
IF(L-I .LE. J-K) GO TO 60 
IL(M)=1 

IUCM)=L 

I=K 

M=M+1 

GO TO 80 

IL(M)=K 

IUCM)=J 

J=L 

M=M+1 

GO TO 80 

M=M-1 

iGierene. 0) RETURN 
I=IL(M) 

J=IUC(M) 

T¥( J= 19368, 11)G0-TO 80 


| 


PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 
PXS 


423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 


NUMBER 
NUMBER 


436 
43/7 
438 
439 
440 
44] 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 


C2 aca Ca.c) 


IFC]... EGA) GOster PXS 


Sie PXS 
90 I=I+1 PXS 
IF(I .EQ. J) GO TO 70 PXS 
IF(A(I) .LE. A(I+1)) GO TO 90 PXS 
T = A(I+1) PXS 
ell PXS 
100 A(K+1)=A(K) PXS 
K=K-1 PXS 
IF(T .LT. A(K)) GO TO 100 | PXS 
A(K+1)=T PXS 


GO TO 90 PXS 
END PXS 


OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


INCLUDE 'BCRES1. for' 
SUBROUTINE BCRES1(1X,N,EVAL) 
COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING THE CRESSIE FORMULA 
THE BETA LAPLACE PROCESS HAS ALPHA AND LPASSED BY 
COMMON STORAGE. 
USES FUNCTION AMEDI (WHICH USES HEAPSORT AND HEAPIFY) TO GET THE 
MEDIAN. 
REAL*8 IX 
REAL*4 X( 600) ,MEAN,MEANINPU , MEDIAN , STDINPU, ALPHA, L 
COMMON ALPHA,L 
CALL BELAR1( 1X,ALPHA,L,N,X) 
SUM1=0 
SUM2=0 
MEDIAN=AMEDI( X,N) 
WRITE(5,%*)'MEDIAN = ' ,MEDIAN 
WRITE(5,*)'XCI) ',(XC1I),I=1,N) 
DO l=ieNew 
SUM1=SUM1+SQRT( ABS( X(1)-X( I+1))) 
IF( ABS( X(1)-MEDIAN). GT. 0)SUM2=SUM24+SQRT( ABS( X(1)-MEDIAN) ) 
EVAL=1-(( (SUM1/SUM2)**4) /2) 
WRITE(5,*)'CRESS = ', EVAL 
RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0O 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 


FUNCTION AMEDI(X,N) 
THIS ROUTINE USES A SHELLSORT AND INDEXES INTO THE REAL ARRAY X TO FIND 
THE MEDIAN OF X WITHOUT REARRANGING IT. 
THE INDEXES ARE USED AS INTEGER*2 TO CONSERVE STORAGE. 
REAL*4 X(*) i 
INTEGER*2 I, INDX(600) 
INTEGER N 
DO 1 I=1,N 
IND Glial 
WRITE(5,*) UNSORTED LIST: ',(XCINDX(I)),I=1,N) 
CALL SRTNDX(X,N, INDX) 
WRITE(5S,*)'SORTED LIST: ',(X( INDX(I)),I=1,N) 
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471 
472 
473 
474 
475 
476 
477 


IF(MOD(N,2). EQ. 0) THEN 
AMEDI=(X( INDX(N/2) )+X( INDX(N/2+1)))/2 
ELSE 
AMEDI=X( INDX(N/2+1)) 
ENDIF 
RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
49] 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
=) Of 
503 
504 
505 


C 


SUBROUTINE SRTINDXCY,N,INDX) 


INPLACE SORT USING SHELL ALGORITHM **4ekxrex 


C USES INDEXES TO SORT BY TO PRESERVE ORIGINAL ORDER OF Y ARRAY 


100 
200 


500 


NUMBER OF 
NUMBER OF 
NUMBER OF 
NUMBER OF 


WARNINGS iN PROGRAM UNIT: 
ERRORS IN PROGRAM UNIT: 
WARNINGS IN COMPILATION : 
ERRORS IN COMPILATION : 


REAL Y(*) 

INTEGER*2 GAP, INDX(*) , ITEMP 
INTEGER N 

LOGICAL EXCH 


GAP=(N/2) 
IF (.NOT. (GAP. NE.0)) GO TO 500 
CONTINUE 
EXCH=. TRUE. 
K=N-GAP 
DO 200 I=1,K 
KK=I+GAP 
IF(. NOT. (Y(INDX(I)). GT. YC INDX(KK)))) GO TO 100 
ITEMP=INDX(I) 
INDX( I )=INDX(KK) 
INDX( KK)=ITEMP 
EXCH=. FALSE. 
CONTINUE 
CONTINUE 
IF (.NOT.CEXGH)) GO TO 10 
GAP=(GAP/2) 
GO TO 5 
CONTINUE 
RETURN 
END 


Oooo Oo 
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SMT 


SMT 
SMT 
SMT 
SMT 
OMT 
SMT 
SMT 
SMT 
SMT 


SMT 
SMT 
SMT 
SMT 
OMT 
SMT 
SMT 


APPENDIX D. SMTBED SOURCE CODE (VERSION 13) 





Source File: SMTB13. FOR Options: /b /1l /x 07/18/88 20:50:28 @ 
1 C UPDATED 05-10-84 BY LCU TO ADD SERIAL CORRELATION SMT 
2 C UPDATED 07-16-84 BY LCU TO MULTIPLE RUN AND SUMMARY STATISTICS PAGE SMT 
3 C UPDATED 07-30-84 BY LCU TO ADD NORMALIZED QUANTILES SMT 
4 C UPDATED 10-25-84 BY LCU TO CONVERT TO FORTRAN 77 SMT 
5 C UPDATED 08-12-85 BY LCU TO ALLOW DEGREE REGRESSION UP TO 6 ON VAR. SMT 
6 C UPDATED 04-04-86 BY LCU TO SAVE STATS. FROM EACH SUPER REPL. ON FILE SMT 
7 C UPDATED 05-12-86 BY LCU TO COMPUTE MEAN SQUARE ERROR oMa 
8 C UPDATED 09-09-86 BY LCU TO DO PERCENTILE PLOTS SMT 
9 C UPDATED 09-29-86 BY LCU TO DO BIVARIATE HISTOGRAMS. BUG FIX 02-09-87 SMT 

10 C UPDATED 06-10-87 BY LCU TO ADD RESTART FEATURE SMT 
11 C UPDATE 12/87 BY RLY FOR COLOR PRINTER SUPPORT OF COMBINED BOXPLOTS 

12 C UPDATE 4/88 BY RLY FOR 5 ESTIMATORS 

LC SMT 
14 C PURPOSE TO GENERATE REGRESSION ADJUSTED ESTIMATES AND BOX PLOTS SMT 
Ns) OF ESTIMATES OF AN INPUT RAW DATA SERIES X CONTAING M ‘SMT 
16 C (REPLICATIONS) OF N VALUES EACH. UP TO 3 ESTIMATING SMT 
Ley FUNCTIONS CAN BE USED. THE GRAPHS CAN ALL BE OF THE SAME SMT 
toma SCALE OR SCALED INDIVIDUALLY. SMT 
19 Cc * THE SERIES X IS GENERATED FROM INSIDE SIMTB BY USER SMT 
20 Cc * PROVIDED FUNCTION SMT 
a ae @ SMT 
22 C DESCRIPTION OF PARAMETERS SMT 
232 SMT 
24 C * GEST1, GEST2, GEST3,GEST4,GESTS5: | 
2G USER SUBROUTINES THAT WILL GENERATE THE DATA,SMT0O0220 : 
Zo, 7 AND THEN COMPUTE AN ESTIMATE FROM IT. SMT. 
27 C * THE ACTUAL NAMES USED NAMES MUST BE DECLARED AS EXTERNAL SMT / 
BoC < IN THE CALLING PROGRAM. CALLS MUST BE AS FOLLOWS: SMT © 
29 C * CALL SUBROUTINE_NAME(1IX,NX,EVAL) SMT 7 
BOG WHERE: SMT 
BiG % IX=SEED C INPUT AND OUTPUT ARGUMENT) SMT 
B26 * NX=NO. OF DATA POINTS TO TO GENERATE SMT 
33 C * EVAL=VALUE OF ESTIMATOR APPLIED TO THE NX DATA POINTS SMT 
34 ¢C * NOTICE THAT PROGRAM ASSUMES THREE SUBROUTINES IN THE SMa 
Eye) a Orme ARGUMENTS. WHEN USING LESS THAN 3 ESTIMATORS FILL THE SMT 
36 C * ARGUMENT POSITIONS WITH DUMMY VARIABLES OR JUST REPEAT SMT 
Ci Oa THE LAST ONE. SMT@ 
Some SMT@ 
39 Cc * ISEED1, ISEED2, ISEED3 , ISEEDG) SEEDS: 
40 C SEEDS FOR DATA GENERATORS 1, 2 & 3. SMT ¥ 
41 C * THE SEEDS ARE UPDATED (ADVANCED) UPON RETURN FROM SIMTB SMT @ 
42 C SMT 
43 C * ye WORK ARRAY OF SIZE >= M*N/NE(1)) SMT | 
44 C SMT | 
45 C N NUMBER OF DATA ELEMENTS PER SECTION (N IS SAMPLE SIZE). SMT 4 
46 C SMT 
47 C M NUMBER OF SECTIONS CREPLICATIONS). , SMT 
48 C M CANNOT EXCEED 100 SMT 
49 C SMT 
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Sei Se) ee ie) oO) ee) ler Sic) =) (Pele Re keteke  @lere!e Pie eee?) PEOL® Eel? (2) e1ekeol? | (Peete? ? (Pi Pere 


NE 


NSR 


RG 


SEI 


SVS 


YMIN 
YMAX 


NEST 


INTEGER ARRAY OF SIZE 8 CONTAINING SUBSAMPLE SIZES FOR N. SMT 


THE VALUES OF NE MUST BE FROM SMALLEST TO LARGEST. 
NO ELEMENT OF THE ARRAY NE CAN BE GREATER THAN N. 


NUMBER OF SUBSAMPLE SIZES FROM NE(8) THAT WILL BE USED TO 


SECTION N. MUST BE BETWEEN 2 AND 8. 


IT IS ALSO THE NUMBER OF BOXPLOTS THAT WILL BE PRODUCED. 
DEGREE OF REGRESSION FOR MEAN AND VARIANCE REGRESSIONS. 
D WILL BE REDUCED BY SIMTB IF THE SAMPLE IS NOT LARGE 
ENOUGH. D MUST BE 1 TO 6. D=0 WILL IGNORE REGRESSIONS. 


NO. OF RUNS TO REPEAT SIMTB (>=1) WITH A PAGE OF 


SUMMARY STATISTCS AT THE END WHEN >1. 


#e SCALING ver 


SCALING IS ACCOMPLISHED BY TAKING THE SMALLEST AND THE 
LARGEST ESTIMATE VALUES FROM ALL ESTIMATING FUNCTIONS 
‘EVALUATED ON THE SHORTEST SECTION LENGTH ( NE(1) ). 


SMT 
SMT 
SMT 
Shade 
SMT 
SMT 
SMT 
ol 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
out 
ST 
SMT 
SMT 


THE SEI PARAMETER ALLOWS THE USER TO SCALE THE GRAPHSSMT 
OF EACH ESTIMATOR INDIVIDUALLY OR TO SCALE THEM ALL TO SMT 


THE SAME SCALE. SCALING ALL TO THE SAME SCALE IS 


OMT 


ACCOMPLISHED BY TAKING THE MINIMUM AND MAXIMUM ESTIMATESMT 


FROM ALL THE ESTIMATORS USING NE(1) SUBSAMPLE SIZE. 

THE RG PARAMETER ALLOWS THE USER TO RREDUCE THE VER- 
TICAL SCALE TO; THE UPPER QUARTILE DISTANCE + 1.5 TIMES 
INTERQUARTILE DISTANCE AS THE MAX VALUE AND THE LOWER 
QUARTILE - 1.5 TIMES THE INTERQUARTILE DISTANCE AS THE 
MIN VALUE. THE INTERQUARTILE DISTANCE IS COMPUTED FROM 
THE SAMPLE OF ESTIMATES FROM THE NE(1) SUBSAMPLE SIZE. 
IF THERE ARE NO ESTIMATES OUTSIDE THESE MIN AND MAX 
VALUES THEN THE SCALE IS TO THE FIRST VALUE WITHIN. 

IF THERE ARE ESTIMATES OUTSIDE THESE LIMITS THEN THEY 
ARE COUNTED AND THE NUMBER PRINTED AT THE ENDS OF THE 


BOX PLOTS. 


THE SVS PARAMET ALLOWS THE USER TO SET THE VERTICAL 
SCALE. WHEN THE VERTICAL SCALE IS SET THE SEI PARAMETER 
IS IGNORED AND THE VERTICAL SCALE BECOMES YMIN AND YMAX. 


RG=0 DO NOT REDUCE THE VERTICAL SCALE OF THE GRAPHS. 
RG=1 REDUCE GRAPHICS VERTICAL SCALE TO UPPER (LOWER) 
QUARTILE + (-) INTERQUARTILE DISTANCE. 


SEI=0 DO NOT SCALE ESTIMATORS' GRAPHS INDIVIDUALLY. 
SEJ=1 SCALE ESTIMATORS' GRAPHS INDIVIDUALLY. 


SVS=0 PROGRAM WILL CALCULATE VERTICAL SCALE. 
SVS=1 USER SETS VERTICAL SCALE TO YMIN AND YMAX. 


LOW VALUE OF VERTICAL SCALE. SET BY USER WHEN SVS=1 
HIGH VALUE OF VERTICAL SCALE. SET BY USER WHEN SVS=1 


NUMBER OF ESTIMATORS THAT WILL BE USED TO CALCULATE 
STATISTICAL PARAMETER FROM X DATA. 
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fi mepl 
TTL2 
seis 
TTL4 
TTL5 


IFIL 


NPRT 


MSE 


VMSE 


IPR 


VMX1 
VMX2 
VMX3 
VMX4 
VMX5 


IBIV 


RSTRT 


NEST MUST BE 1,2,3,4 OR 5. 
TITLES ASSOCIATED WITH EACH ESTIMATOR (1 THRU 5). A MAX 


OF 120 CHARACTERS CAN BE USED TO DESCRIBE EACH ESTIMATOR. 
EACH TITLE MUST BE DECLARED AS CHARACTER*120 STRINGS 


0 - DO NOT RECORD STATS. FROM EACH SUPER REPL. ON FILE 


SMT 
SMT 
SMT 
SMT 


SMT 
SMT 


1 - RECORD STATISTICS ON FILE UNIT 1 FOR FURTHER PROCESSNGSMT 


UNIT 1 FILE IS SEQUENTIAL, FORMATTED. 
IN THE FILE INCLUDES LABELS 


THE DATA PLACED 


O - PRINT DETAIL FOR UP TO 3 SUPER REPLICATIONS 


SMT 
SMT 
SMT 
OMT 


AND PRINT NORMALIZED QUANTILE PLOTS (STANDARD SETTING) SMT 


1 - PRINT ONLY 1 SUPER REPL. AND NO NORMALIZED QUANTILE 


O - DO NOT PRINT MEAN SQUARED ERRORS USING VMSE MATRIX 
1 - PRINT MEAN SQUARED ERRORS WITH VMSE MATRIX 


SMT 
SMT 
SMT 
SMT 
SMT 


MATRIX 8X5 WITH KNOWN MEANS ON EACH COL. FOR EACH ESTIMATORSMT 


O - DO NOT PRINT PERCENTILE PLOTS 
1 - PRINT PERCENTILE PLOTS 


3 MATRICES 8X4 EACH WITH VALUES FOR PERCENTILE PLOTS 
EACH REPRESENTING 8 VALUES FOR EACH SECTION SIZE 
(IF L<8 PAD WITH ZEROES). 4 SUCH SETS MUST BE ENTERED 
FOR EACH MATRIX 


O - DO NOT PRINT BIVARIATE HISTOGRAMS 
1 - PRINT BIVARIATE HISTOGRAMS 


O - THIS IS NOT A RESTART RUN. 

1 - THIS IS A RESTART RUN. AT THE END SAVE RESTART 
VALUES ON UNIT 2. AT THE BEGINNING READ UNIT 2 
AND CONTINUE EXECUTION AT THE SUPER-REPLICATION 
WHERE IT WAS LEFT OFF. IF NO FILE EXISTS FOR 
FOR UNIT 2 IT WILL ASSUME THIS IS THE FIRST RUN. 
UNIT 2 SHOULD BE OPENED BY THE CALLING PROGRAM IF 
A DIFFERENT NAME OF THE FORTRAN DEFAULT IS TO BE 
USED. ON VM/CMS A FILEDEF WILL DO THE SAME. 


THE RESTART FILE IS TYPE SEQUENTIAL UNFORMATTED, AND 
CAN ONLY BE READ BY A FORTRAN PROGRAM. USE UNIT 2 
FOR STATISTICS FILE. DEFAULT UNFORMATTED RECORD 
LENGTH OF 1024 BYTES IS ADEQUATE. 


ICOLOR O - NO COLOR PRINTOUT 


1 - PRINT COLOR COMBINATION OF ESTIMATORS FOR THE 
ESTIMATORS FOR UP TO THREE SAMPLE SIZES (NEED AT 
LEAST 2 TO MAKE SENSE). THIS IS IN ADDITION TO 
THE REGULAR PRINTOUTS, WHICH ARE FLAGGED SEPARATELY. 


IBWPRT 0 - DO NOT PRINT THE STANDARD PRINTOUTS. 


ls2 


SMT 
SMT. 
SMT 
SMT 
SMT 
OMT 
SMT 
SMT 


SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
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1] - PRINT THE STANDARD PRINTOUTS. 
NOTE: IF BOTH ICOLOR AND IBWPRT ARE ZERO, NO PRINTOUTS 
OCCUR. 


NCPRT - NUMBER OF SAMPLE SIZES FOR WHICH TO PRINT COLOR BOXPLOT 
COMBINATIONS. MUST BE 1,2, OR 3. 


NCOLRNDX( ) - ARRAY INDEX TO NE(*); USE THESE SAMPLE SIZES FOR COLOR 
BOXPLOTS 
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C SMT 

SUBROUTINE SMTBED( ISEED1,ISEED2,1SEED3,ISEED4,ISEED5, 

* Y,N,M,NE,L,D,NSR,RG,SEI,SVS, YMIN, YMAX ,NEST,GEST1,TIL1,GEST2 ,TTL2, 

CNSo Mis Cems, TIL4sGESTS , TUES.TRRy.NPRT, 

* MSE,VMSE, IPR,VMX1,VMX2,VMX3, VMX4, VMXS, 

* IBIV,RSTRT, ICOLOR, IBWPRT,NCPRT , NCOLRNDX) 
PARAMETER (NBROWS=500) 
real*8 ISEED1,ISEED2,ISEED3,ISEED4,ISEEDS, ISEED 
CHARACTER*1 COLRPLT(122,50,5) ,COLRXIS(122,2),BLK 


GuonAGieR*120 TTL1, TTL2,TIL3,TIL4,TITLS SMT 
CHARACTER*8 LABEL(7) 

REAL Y(1),GV(2), VMSE(8,5),BA(7),BS(7),BV(7),V(7) SMT 
REAL VMX1(8,4), VMX2(8,4), VMX3(8,4),COLRSTAT(8,7,5) SMT 


REAL VMX4(8,4) ,VMX5(8,4) 
REAL BIV1(NBROWS , 89. BIV2(NBROVS, 8) ,BIV3(NBROWS ,8) ,BIV4(NBROWS,8) SMT 


REAL TX(NBROWS), TY(NBROWS) ,DLH(4) SMT 
INTEGER NE(8),RG,SEI,SVS,SM, IFIL SMT 
INTEGER D,L,NEST,TEST, IBPTR(8) SMT 
INTEGER RSTRT, NNE(8), NCOLRNDX(3) SMT 
REAL VYMAX(5) ,VYMIN(5) : SMT 
REAL*8 GST1(8,7,2), GPV1(8,11,2) SMT 
REAL*8 GST2(8,7,2), GPV2(8,11,2) SMT 
REAL*8 GST3(8,7,2), GPV3(8,11,2) SMT 
REAL*8 GST4(8,7,2), GPV4(8,11,2) SMT 
REAL*8 GST5(8,7,2), GPV5(8,11,2) SMT 
REAL*8 GBA1(7,2), GBV1(7,2), GBS1(7,2), GVV1(7,2) SMT 
Pes GRA2(7,2), GEV2(7,2), GBS2(7,2), Gwv2(7,2) SMT 
RHAL*oeGBAS@, 20% GBV307,2), GBS8(7,2), G¥V3(7,2) SMT 
REAL*8 GBA4(7,2), GBV4(7,2), GBS4(7,2), GVV4(7,2) SMT 
REAL*8 GBA5(7,2), GBV5(7,2), GBS5(7,2), GVV5(7,2) SMT 
DATA GST1/112*0.D0/, GPV1/176*0. DO/ SMT 
DATA GST2/112*0.D0/, GPV2/176*0. DO/ SMT 
DATA GST3/112*0.DO/, GPV3/176*0. DO/ SMT 
DATA GST4/112*0.D0/, GPV4/176*0. DO/ SMT 
DATA GST5/112*0.D0/, GPV5/176*0. DO/ SMT 


DATA GBA1/14*0.D0/, GBV1/14*0.D0/, GBS1/14*0.D0/, GVV1/14*0.D0/ SMT 
DATA GBA2/14*0.D0/, GBV2/14*0.D0/, GBS2/14*0.D0/, GVV2/14*0.D0/ SMT 
DATA GBA3/14*0.D0/, GBV3/14*0.D0/, GBS3/14*0.D0/, GVV3/14*0.D0/ SMT 
DATA GBA4/14*0.D0/, GBV4/14*0.D0/, GBS4/14*0.D0/, GVV4/14*0.D0/ = SMT 
DATA GBA5/14*0.D0/, GBV5/14*0.D0/, GBS5/14*0.D0/, GVV5/14*0.D0/ SMT 
DATA BLK/' '/ 
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C Sh 


C --- SAVE BASIC RUN PARAMETERS & TITLES ON STATISTICS FILE Sh 
IF(IFIL .EQ. 1)WRITE(1,560)N,M,NE,L,D,NSR,NEST,TTL1,TIL2,TIL3, Sh 
«TG , Wes 
560  FORMAT('SAMPLE SIZE: "110, REPLICATIONS-., slelon 
* /'SUBSAMPLE SIZES: '/81I10/'L = "110, ‘DEGREE REG: ',110, ‘SUPER 
*-REPS: ' ,110,/ NO. ESSine: , L107 SCA1 20") 
c Sh 
C --- DETERMINE CASE OF RESTART. IRST=0 NO RESTART S} 
@ IRST=1 IS 1ST RUN (SAVE VALUES AT END) SI 
@ IRST=2 IS CONTINUATION OF PREVIOUS RUN SI! 
INSR=1 Sh 


WRITE(55 555) 
555 format( SMTBED - A Simulation Test Bed (Version 13.0, April 1988) 
*'7/' (PC version).... START OF RUN’ ) 
C IF THERE IS ONLY ONE ESTIMATOR, CAN'T COMBINE FOR COLOR OUTPUT 
IFC NEST. EQ. 1) ICOLOR=0 


IRST=RSTRT S} 
IF(RSTRT .EQ. 0) GO TO 9004 S} 
REWIND 2 S} 
READ(2,END=9003) NN,MM,NNE,LL, IDD,NNSR,NNEST,NSEL, S} 

¥ ISEED1,ISEED2,ISEED3, ISEED4,ISEED5,VYMIN,VYMAX SI 
IF(NN.NE.N .OR. MM.NE.M .OR. LL.NE.L .OR. IDD.NE.D .OR. S} 

*  NSR.LE.NNSR .OR. NSEI.NE.SEI .OR. NNEST.NE.NEST) GO TO 9002 StI 
DO 9001 I=1,8 S} 
IF(NNE(I).NE.NE(I)) GO TO 9002 S} 
9001 CONTINUE S! 
IRST=2 S} 


THESE READ STATEMENTS ARE BROKEN UP SO THE DEFAULT UNFORMATTED 
RECORD LENGTH WILL HOLD THE DATA, AND THE USER DOESN'T HAVE TO 
WORRY WITH RUNTIME PARAMETERS ON HIS COMPILED PROGRAM 


GC? C22 Ga 


READ( 2, END=9006)((GPV1(1,J,1),I=1,8),J=1,11) 

READ( 2,END=9006)((GPV1(1,J,2) ,I=1,8),J=1,11) 

READ( 2 ,END=9006)GST1 

READ( 2, END=9006 )GBA1,GBV1,GBS1,GVV1 S] 


IF(NEST .GE. 2) THEN 

READ( 2 ,END=9006)((GPV2(1,J,1),I=1,8) ,J=1,11) 

READ( 2 ,END=9006)((GPV2(1I,J,2),I=1,8),J=1, 11) 

READ( 2 , END=9006)GST2 

READ( 2, END=9006 )GBA2,GBV2,GBS2 ,GVV2 S| 
ENDIF 
IF(NEST .GE. 3) THEN 

READ( 2,END=9006)((GPV3(1I,J,1),I=1,8),J= 

READ( 2 ,END=9006 )((GPV3(1I,J,2),I=1,8),J= 

READ( 2, END=9006)GST3 

READ( 2, END=9006 )GBA3,GBV3,GBS3,GVV3 S} 
ENDIF 
IF(NEST .GE. 4) THEN 

READ( 2,END=9006)((GPV4(I,J,1),I=1,8),J=1,11) 

READ( 2 ,END=9006)((GPV4(1,J,2),I=1,8) ,J=1,11) 

READ( 2 ,END=9006)GST4 

READ( 2 ,END=9006 )GBA4 ,GBV4,GBS4,GVV4 S} 
ENDIF 
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274 PGNE SiGe. +) THEN 


275 READ( 2 ,END=9006)((GPV5(1,J,1),I=1,8) ,J=1,11) 

276 READ( 2 ,END=9006)((GPV5(1,J,2),I=1,8) ,J=1,11) 

27] READ( 2 ,END=9006)GST5 

278 READ( 2 , END=9006 )GBA5 ,GBV5 ,GBS5 ,GVV5 SMT 
279 ENDIF 

280 C --- FIX VERTICAL SCALE TO USE YMIN,YMAX COMPUTED IN PREVIOUS RUN SMT 
281 SVS=1 SMT 
282 C --- START SUPER-REPLICATIONS COUNT FOLLOWING WHERE LEFT OFF SMT 
283 INSR=NNSR+1 SMT 
284 GO TO 50 SMT 
285 9002 CONTINUE SMT 
286 C --- ERROR IN A RESTART RUN. NEW PARMS NOT COMPATIBLE WITH OLD ONES SMT 
287 WRITE(5,*) ‘ARGUMENTS FOR RESTART DO NOT AGREE WITH VALUES ', SMT 
288 * "FOUND ON FILE UNIT 2. THEY ARE: ' SMT 
289 WRITE(5,*) 'N,M,L,D,NSR,NEST,SEI=' ,NN,MM,LL,IDD,NNSR,NNEST ,NSEI SMT 
290 WRITE(5,*) ‘NE: , (NNE(I), I=1,LL) SMT 
291 STOP SMT 
292 C --- TABLES NOT PRESENT FOR ALL ESTIMATORS SMT 
293 9006 CONTINUE SMT 
294 WRITE(5,*) ' 2% ERROR: RESTART FILE DOES NOT HAVE TABLES FOR', SMT 
295 * " ALL ESTIMATORS' SMT 
296 STOP SMT 
207 C SMT 
298 9003 CONTINUE SMT 
299 C --- RESTART FILE NOT EXISTENT. ASSUME 1ST RUN SMT 
300 IRST=1 SMT 
301 9004 CONTINUE SMT 
S02 C SMT 


303 C SET SEI TO 0 FOR NO INDIVIDUAL SCALING IF WE ARE DOING COLOR PLOTS 
304 C 


305 IF( ICOLOR. EQ. 1)SEI=0 

306 C 

307 IF(SVS.EQ.1) THEN SMT 
308 DO 9011 I=1,5 | SMT 
309 VYMAX( I )=YMAX SMT 
310 VYMIN(I)=YMIN SMT 
Bi 9011 CONTINUE SMT 
312 ENDIF SMT 
313 SM=NE(1) SMT 
314 MN = M*N SMT 
315 LT=L-1 SMT 
316 IF(LT. EQ. 0) GO TOmI3 SMT 
317 BO ii) 1=1,LT SMT 
318 [1=I+1 SMT 
319 IF(NE(1). GT. NE(I1) )WRITE(6,110) SMT 
320 11 CONTINUE SMT 
300 13 TEST=0 SMT 
322 IF(NEST. EQ. 1 .OR. NEST.EQ.2 .OR. NEST. EQ. 3. OR. NEST. EQ. 4. OR. 

323 * NEST.EQ.5) GO TO 2 SMT 
324 WRITE(5,106) SMT 
325 TEST=1 SMT 
326 2 IF(M. GE. 1. AND.M. LE. 100) GO TO 3 SMT 
327 WRITE(5, 104) SMT 
328 TEST=1 SNT 
329 3 IF(L. GE. 1. AND. L. LE.8) GO TO 4 SMT 
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30 


WRITEC SIGS) 

TEST=1 

IFCD. LE.6) GO TO 5 
WRITE(5,108) 

TEST=1 

CONTINUE 

TFCNECL) Ei NN) GOP Tere 
WRITE(5 , 107) 

TEST=1 

CONTINUE 

DHGNSR S.GE 1) GOs nO a7 
WRITE CS , 11d) 

TEST=1 

CONTINUE 

IF (TEST. NE. 0) GG TGrcout 


BYPASS SCALE CALCULATION WHEN FIXED 
IF {(svs . EQ. 1econle se 
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* COMPUTE SCALE FOR EACH ESTIMATOR 
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ISEED=ISEED1 
DO 10 IK=1,1 

FIND VERTICAL SCALE FOR 1ST ESTIMATOR. 

CALL SECEST(GEST1, ISEED,N,M,NE(IK) ,Y,KP) 
IF(RG. EQ. 1) CALL DELETO(Y,KP,VYMAX(1),VYMIN(1)) 
IF(RG. NE. 1) CALL MAXMIN(Y,KP,VYMAX(1),VYMIN(1)) 
YMIN=VYMIN( 1) 

YMAX=VYMAX( 1) 
CONTINUE 


FIND VERTICAL SCALE FOR 2ND ESTIMATOR. 

IFCNEST JLT. 2) GO" Toneo 

ISEED=ISEED2 

DO 20 IK=1,1 

CALL SECEST(GEST2 ,ISEED,N,M,NE(IK),Y,KP) 
IF(RG. EQ. 1) CALL DELETO(Y,KP,VYMAX(2) , VYMIN(2)) 
IF(RG. NE. 1) CALL MAXMIN(Y,KP,VYMAX(2) ,VYMIN(2)) 
YMIN=AMIN1(YMIN, VYMIN(2)) 

YMAX=AMAX1(YMAX, VYMAX(2)) 

CONTINUE 


FIND VERTICAL SCALE FOR 3RD ESTIMATOR. 

IF(NEST .LT. 3) GO TO 40 

ISEED=ISEED3 

DO 30 IK=1,1 

CALL SECEST(GEST3,ISEED,N,M,NE(IK),Y,KP) 
IF(RG. EQ. 1) CALL DELETO(Y,KP,VYMAX(3),VYMIN(3)) 
IF(RG. NE. 1) CALL MAXMIN(Y,KP,VYMAX(3), VYMIN(3)) 
YMIN=AMIN1(YMIN, VYMIN(3)) 

YMAX=AMAX1(YMAX, VYMAX(3)) 

CONTINUE 


FIND VERTICAL SCALE FOR 4TH ESTIMATOR. 


IF(NEST .LT. 4) GO TO 40 
ISEED=ISEED4 
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POM IR 1 
CALL SECEST(GEST4, ISEED,N,M,NE(IK),Y,KP) 
IF(RG. EQ. 1) CALL DELETO(Y,KP,VYMAX(4) , VYMIN(4) ) 
IF(RG. NE. 1) CALL MAXMIN(Y,KP,VYMAX(4) ,VYMIN(4) ) 
YMIN=AMIN1(YMIN, VYMIN(4)) 
YMAX=AMAX1( YMAX, VYMAX(4)) 
31 CONTINUE 


é FIND VERTICAL SCALE FOR STH ESTIMATOR. 
IF(NEST .LT. 5) GO TO 40 
ISEED=ISEEDS 
DESO TR=1 1 
CALL SECEST(GESTS , ISEED,N,M,NE( IK) ,Y,KP) 
IF(RG. EQ. 1) CALL DELETO(Y,KP,VYMAX(5),VYMIN(5)) 
IF(RG. NE. 1) CALL MAXMIN(Y, KP, VYMAX(5), VYMIN(5)) 
YMIN=AMIN1(YMIN, VYMIN(5)) 
YMAX=AMAX1(YMAX, VYMAX(5)) 
32 CONTINUE 
40 CONTINUE 
C --- WHEN SCALE IS SAME FOR ALL USE WIDEST OF ALL THREE SCALES FOUND 
IF(SEI .EQ. 0) THEN 
DO 41 IK=1,5 
VYMIN( IK)=YMIN 
VYMAX( IK)=YMAX 
41 CONTINUE 
ENDIF 


PROCESS BOXPLOTS USING VERTICAL SCALE AS DETERMINED 
ONE CALL FOR EACH ESTIMATOR USED. 
50 CONTINUE 
C CLEAR COLOR PLOT ARRAY 
CALL CLRCOLR(COLRPLT) 
GV(1)=VYMIN(1) 
GV(2)=VYMAX(1) 
WRITE(5,552) 
552 FORMAT(/'PROCESSING ESTIMATOR # 1°) 
CALL PRST(GEST1,ISEED1,N,M,NE,L,RG,D,VYMIN(1),VYMAX(1), 
* Y,GV,TTL1,NSR,IFIL, NPRT,MSE,VMSE(1,1), IPR,VMX1, 
* IBIV,IBPTR,BIV1, INSR,GPV1,GST1,GBA1,GBV1,GBS1,GVV1, 
* JBWPRT,NCPRT ,NCOLRNDX , COLRXIS,1,NEST, 
* COLRPLT,COLRSTAT, BA,BV,BS,V,DLH, VSCALE, IWIDTH, LABEL) 


C16) C1-@) 


IF (NEST. LT. 2) GO TO 80 
WRITE(5,553) 

553 FORMAT(/'PROCESSING ESTIMATOR #2' ) 

CALL PRST(GEST2, ISEED2,N,M,NE,L,RG,D,VYMIN(2) , VYMAX(2), 
Y,GV,TTL2,NSR,IFIL, NPRT,MSE,VMSE(1,2), IPR,VMX2, 
IBIV,IBPTR,BIV2, INSR,GPV2,GST2,GBA2,GBV2 ,GBS2,GVV2, 

© IBWPRT,NCPRT , NCOLRNDX,COLRXIS,2,NEST, 

* COLRPLT , COLRSTAT,BA,BV,BS,V,DLH, VSCALE, IWIDTH, LABEL) 


+ OF 


IF (NEST. LT. 3) GO TO 80 
WRITE(5,554) 
554 FORMAT(/'PROCESSING ESTIMATOR # 3") 
CALL PRST(GEST3, ISEED3,N,M,NE,L,RG,D,VYMIN( 3), VYMAX(3), 
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622 


O22 
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* Y,GV,TTL3,NSR,IFIL, NPRT,MSE,VMSE(1,3), IPR,VMX3, 

* IBIV,IBPTR,BIV3, INSR,GPV3,GST3,GBA3,GBV3,GBS3,GVV3, 
* IBWPRT,NCPRT,NCOLRNDX , COLRXIS ,3,NEST, 

* COLRPLT ,COLRSTAT, BA,BV,BS,V,DLH, VSCALE, IWIDTH, LABEL) 


IF (NEST. LT. 4) GO TO 80 

WRITE(5,556) 

FORMAT(/'PROCESSING ESTIMATOR # 4') 

CALL PRST(GEST4, ISEED4 ,N,M,NE,L,RG,D, VYMIN(4) , VYMAX(4), 
Y,GV,TTL4,NSR,IFIL, NPRT,MSE,VMSE(1,4), IPR,VMX4, 
IBIV,IBPTR,BIV4, INSR,GPV4,GST4,GBA4,GBV4,GBS4,GVV4, 
IBWPRT , NCPRT , NCOLRNDX , COLRXIS ,4,NEST, 

COLRPLT, COLRSTAT, BA, BV,BS,V,DLH,VSCALE , IWIDTH, LABEL) 


a 


IF (NEST. LT. 5) GO TO 80 

WRITE(5 ,557) 

FORMAT(/'PROCESSING ESTIMATOR # 5') 

CALL PRST(GESTS, ISEEDS ,N,M,NE,L,RG,D,VYMIN(5) , VYMAX(5), 
* Y,GV,TTL5,NSR,IFIL, NPRT,MSE,VMSE(1,5), IPR,VMXS, 
* IBIV,IBPTR,BIV4, INSR,GPV5,GSTS ,GBAS ,GBVS,GBS5 ,GVV5, 
* IBWPRT,NCPRT ,NCOLRNDX ,COLRXIS,5,NEST, 
* COLRPLT,COLRSTAT,BA,BV,BS,V,DLH,VSCALE , IWIDTH, LABEL) 


80 CONTINUE 
IF COLOR FLAG NOT SET, SKIP COLOR OUTPUT SECTION 


IF WE ARE ON SECOND STAGE OF A RESTART RUN, DON'T DO THE COLOR PART. 


IFC ICOLOR. EQ. 0. OR. IRST. EQ. 2)GOTO 340 


OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 
OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 
OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 
OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 


WRITE(6 ,325)N,M,D 

FORMAT('1' ,5X,'SMTB COMBINED ESTIMATOR BOXPLOTS: SAMPLE SIZE: ' 

* ,17,' NO. REPLICATIONS: ',14,' DEG REGRESSION: ',1I2/' ',131(C' 

DO 303 K=50,1,-1 

IF(MOD(K,5).NE.0)GO TO 304 
YLABEL=(K-DLH( 2) )/VSCALE+YMIN 
WRITE(6 ,622)YLABEL 
FORMAT(' ',G8.2,'-') 
CALE SELCOLRGS 
WRITE(6,322)(COLRPLT(I,K,1),I=1, IWIDTH) 
WRITE( 6 ,322)(COLRPLT(1,K,1),I=1, IWIDTH) 
CALL SETCOLR(0) 
WRITE(6, 364) 
CALL SETCOLR(2) 
WRITE(6,322)(COLRPLT(1I,K,2),1I=1, IWIDTH) 
WRITE(6, 322)(COLRPLT(1,K ,2),1=1, IWIDTH) 
FORMAT('+' ,9X,122A1) 
GINGIL SETCOLR(6) 
WRITE( 6,322) (COLRPLT(I,K,3),I=1,IWIDTH) , 
WRITE(6,322)(COLRPLT(1I,K,3),1=1, IWIDTH) 
GALL SETCOLR(3) 
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SMT 
SMT 


OMT 
SMT 


SMT 


SMT 


OMT 
SMT 


SMT 


SMT 


SMT 
SMT 


<a OS a 


OE eee 


= = eee 


—— 


— = 
Silman = = 


BS A AR a me = 


498 
499 
500 
501 
OZ 
303 
504 
505 
506 
SOW 
508 
509 
510 
511 
pal 2 
5) 186) 
514 
515 
5) Ig 
5) 17 
Sars 
Sg 
520 
Saal 
me 2 
5 Ia 
524 
ao 
526 
a] 
a2 8 
5 (ie 
530 
5 Salk 
BZ 
eS 
534 
5) She) 
536 
Sou 
53 

ao9 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
oy 519) 
5) aah 
a 2 
Se: 


304 


363 


364 


203 


26 


E2/ 


oy 
Syma 
Bo 2 
2/3 
590 


374 


5/5 


2/6 


WRITE( 6 ,322)(COLRPLT(1,K,4),1=1, IWIDTH) 
WRITE( 6 ,322)(COLRPLT(1I,K,4),1=1, IWIDTH) 
CALL SETCOLR(0) 
WRITE(6 ,322)(COLRPLT(1,K,5), I=1, IWIDTH) 
WRITE(6,322)(COLRPLT(1,K,5),1=1, IWIDTH) 
GOTO 303 

CONTINUE 

WRITE(6 , 363) 


FORMAT(9X,'|") 
CALL SETCOLR( 1) 
WRITE(6,322)(COLRPLT(1,K, 1), 1=1, IWIDTH) 


WRITE(6,322)(COLRPLT(I,K,1),1=1, IWIDTH) 
CALL SETCOLR(0) 

WRITE( 6 , 364) 

FORMAT( '+' ,131X,'|') 

GATE CE TOOLR( 2) 
WRITE(6,322)(COLRPLT(I,K,2),1=1, IWIDTH) 
WRITE(6,322)(COLRPLT(I,K,2),1I=1, IWIDTH) 
CALL SETCOLR(6) 
WRITE(6,322)(COLRPLT(I,K,3) ,1=1, IWIDTH) 
WRITE(6,322)(COLRPLT(I,K,3),1=1, IWIDTH) 
CALL SETCOLR(3) 

WRITE(6 ,322)(COLRPLT(1I,K,4),1I=1,IWIDTH) 
WRITE(6 ,322)(COLRPLT(I,K,4),1I=1, IWIDTH) 
CALL SETCOLR(0) 
WRITE(6,322)(COLRPLT(I,K,5),1=1, IWIDTH) 
WRITE(6,322)(COLRPLT(I,K,5),I=1, IWIDTH) 


CONTINUE 
CALL SETCOLR(0) 
WRITE(6 ,326)(COLRXIS(1,1),1=1, IWIDTH) 
FORMAT(9X,'+',122A1, Joi ) 
WRITE(6, 327)(COLRXIS(T, 2),I=1,IWIDTH) 
FORMAT( 10X,122A1) 
DO 390 J=1,NEST 
WRITE( 6 ,370)(NE(NCOLRNDX(1)),I=1,NCPRT) 
FORMAT( 'OSUBSAMPLE SIZE: ',18X,3(18,6X)) 
WRITE(6,371)J,(COLRSTAT( NCOLRNDX(I),1,J),1=1,NCPRT) 
FORMAT(' ESTIMATOR ',I1,': MEAN: ‘,8X,3G14. 4) 
WRITE( 6,372) (COLRSTAT( NCOLRNDX(1),2,J),1=1,NCPRT) 
FORMAT@@™ 915K, STD: ‘,8X,3G14. 4) 
WRITE( 6,373 )( COLRSTAT( NCOLRNDX(1),3,J),I=1,NCPRT) 
FORMAT(' ',15X,'STD MEAN: ' ,5X,3G14. 4) 
CONTINUE 
IF(NEST. GE. 1) THEN 
WRITE(6,374) 
FORMAT( ‘OESTIMATOR 1: ') 
CAhi SETCOM@)) 
WRITE(6,375)TTL1 
WRITE(6,375)TTL1 
FORMAT( '+' ,14X,A120) 
CALL SETCOLR(0) 
ENDIF 
IF(NEST. GE. 2) THEN 
WRITE( 6,376) 
CALL SETCOLR(0) 
FORMAT(' ESTIMATOR 2:') 


es 


554 CALL SETCOLR( 2) 


555 WRITE(6,375)TTL2 

556 WRITE(6,375)TTL2 

557 CALL SETCORECO) 

558 ENDIF 

559 IF(NEST. GE. 3) THEN 

560 WRITE( 6,377) 

561 377. FORMAT(' ESTIMATOR 3:') 
562 CALL SETCOLR(6) 

563 WRITE(6,375)TTL3 

564 WRITE(6,375)TTL3 

565 CALL SETCOLR(0) 

566 ENDIF 

567 IF(NEST. GE. 4) THEN 

568 WRITE( 6,378) 

569 378  FORMAT(' ESTIMATOR 4:') 
570 CALL SETCOLR(3) 

571 WRITE(6,375)TTL4& 

572 WRITE(6,375)TTL4 
573 CALL SETCOLR(0) 

574 ENDIF 

575 IF( NEST. GE. 5) THEN 

576 WRITE( 6,379) 

577 379  FORMAT(' ESTIMATOR 5: ') 
578 CALL SETCOLR(0) 

579 WRITE(6,375)TTL5 

580 WRITE(6,375)TTLS 

581 ENDIF 


582 C THIS IS THE LAST LINE OF OUTPUT. IF NO COLOR, PUT IN ON LAST SSaeae 
583 C END UP HERE IF DOING RESTART, OR NO COLOR OUTPUT. 


584 340 WRITE(6,122) GV SMT 
585 C --- SAVE RESTART INFORMATION SMT 
586 IF(IRST .GT. 0) THEN SMT 
587 REWIND 2 SMT 
588 C THESE WRITE STATEMENTS ARE BROKEN UP SO THE DEFAULT UNFORMATTED 

589 C RECORD LENGTH WILL HOLD THE DATA. THE USER IS THEN UNCONCERNED WITH 

590 C RUNTIME PARAMETERS TO CHANGE THE RECORD LENGTH (R/M FORTRAN) 

591 C 

592 WRITE(2)N,M,NE,L,D,NSR,NEST,SEI, ISEED1, ISEED2,ISEED3,ISEED4, 

593 * TSEEDS5 , VYMIN, VYMAX SMT 
594 WRITE( 2)((GPV1( 1, J) 1) =) ee 

595 WRITE(2)((GPV1(1,J,2),I=1,8) ,J=1,11) 

596 WRITE(2)GST1 

597 WRITE(2)GBA1,GBV1,GBS1,GVV1 SMT 
598 IF(NEST .GE. 2) THEN 

599 WRITE(2)((GPV2(1,J,1),1=1,8) , J=1,11) 

600 WRITE(2)((GPV2(1I,J,2),I=1,8),J=1,11) 

601 WRITE(2)GST2 

602 WRITE( 2)GBA2 ,GBV2 ,GBS2 ,GVV2 SMT 
603 ENDIF 

604 IF(NEST .GE. 3) THEN 

605 WRITE(2)((GPV3(1,J,1),1=1,8),J=1,11) 

606 WRITE(2)((GPV3(1,J,2),I=1,8),J=1,11) 

607 WRITE(2)GST3 , 

608 WRITE(2)GBA3 ,GBV3,GBS3 ,GVV3 SMT 
609 ENDIF 
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610 IFCNEST .GE. 4) THEN 


611 WRITE(2)((GPV4(1I,J,1),1I=1,8),J=1,11) 

612 WRITE(2)((GPV4(1,J,2),1=1,8),J=1,11) 

613 WRITE(2)GST4 

614 WRITE(2)GBA4,GBV4,GBS4,GVV4 SMT 
615 ENDIF 

616 IF(NEST .GE. 5) THEN 

617 WRITE( 2)((GPV5(1I,J,1),1=1,8) ,J=1,11) 

618 MelleC2 i Gey5Cl,J.2),1=1,8),J=1,11) 

619 WRITE(2)GST5 

620 WRITE( 2)GBA5,GBV5 ,GBS5 ,GVV5 SMT 
621 ENDIF 

622 WRITE(6,*) ‘*** THIS WAS A RESTART RUN. NSR START/END=',INSR,NSR SMT 
623 ENDIF SMT 
624 C SMT 
625 C --- BIVARIATE HISTOGRAMS SMT 
626 C SMT 
627 IF(IBIV .EQ. 1 .AND. NEST. GT. 1) THEN SMT 
628 Hoei2o K=1- | SMT 
629 IBP=IBPTR(K) SMT 
630 HOe201, [=1-1BP SMT 
631 TX(I)=BIV1(1,K) SMT 
632 TY( I)=BIV2(1,K) SMT 
633 201 CONTINUE SMT 
Bo4 C SMT 
635 WRITE(6,123) ‘BIVARIATE HISTOGRAM FOR ESTIMATORS 1 & 2.', SMT 
636 * ' SECTION SIZE=' ,NE(K) SMT 
637 CALL BIHSPC(TX,TY, IBP,Y) SMT 
638 WRITE(6,*) '1 - ', TTL1 SMT 
639 WRITE(6,*) '2 - ', TTL2 SMT 
640 C SMT 
641 IF(NEST .LT. 3) GO TO 120 SMT 
642 DO 202 [=l6aEP SMT 
643 TX(I)=BIV1(1,K) SMT 
644 TY(I)=BIV3(1,K) | SMT 
645 202 CONTINUE SMT 
646 WRITE(6,123) ‘BIVARIATE HISTOGRAM FOR ESTIMATORS 1 & 3.', SMT 
647 * ' SECTION SIZE=' ,NE(K) SMT 
648 CALL BIHSPC(TX,TY, IBP,Y) SMT 
649 WelbE( 6.) 1- , TTLI1 SMT 
650 WRITE(6,*) '3 - ', TTL3 SMT 
651 C SMT 
652 DO 203 I=1,IBP SMT 
653 me 1 )=BIV2(2,K) SMT 
654 TY( I)=BIV3(1,K) SMT 
655 203 CONTINUE SMT 
656 WRITE(6,123) 'BIVARIATE HISTOGRAM FOR ESTIMATORS 2 & 3.', SMT 
657 ¥ ' SECTION SIZE=' ,NE(K) SMT 
658 CALL BIHSPC(TX,TY, IBP,Y) Sh 
659 RE Coes -" , TTL SMT 
660 WRITE(6,*) '3 - ', TTL3 SMT 
661 120 CONTINUE SMT 
662 ENDIF SMT 


663 C JUMP TO HERE IF AN ERROR EXISTS IN THE INPUT DATA. RETURN . 
664 8001 CONTINUE 
665 C SMT 


14] 


Gaia) GC) C2 Cy) Cl Cl alee GC) Cy Gita Ge) C2 a a) 4 


123 FORMAT('1',A45, A13,15) SMT 
22 FORMAT(/" 3 Hever WIDEST Y VALUES FOUND: YMIN=' ,G10. 4, SMT 
* YMAX=',G10.4, '  %#* SMTB ov! ) SMT 
103 FORMAT(' *%*%* ERROR... L MUST BE AN INTEGER BETWEEN 2 AND 8. we!) SMT 
104 FORMAT(' *7%* ERROR...M MUST BE AN INTEGER BETWEEN 1 AND 100. wee | ) SMT 
106 FORMAT(' *** ERROR...NEST MUST BE 3 OR LESS. *%**') SMT 
107 FORMAT(' *** ERROR...N/NE(L) MUST BE 1 OR GREATER TO COMPUTE', SMT 
+' STATISIIGs ey «- INCREASE N OR DECREASE NE(L). ***') SMT 
108 FORMAT(' **%* ERROR...D MUST BE LESS THAN OR EQUAL TO 3. **%*') SMT 
110 FORMAT(' *%* WARNING... NE ARRAY ELLEMENTS ARE NOT IN ORDER OF a SMT 
+" INCREASING SIZE. IF NE(1) IS NOT SMALLEST ELEMENT, SCALING' /SMT 

+' MAY CAUSE POINTS TO FALL OUTSIDE RANGE OF SCALE. ") SMT 
111 FORMAT(' *** ERROR...NSR MUST NOT BE LESS THAN 1 *¥*%*') SMT 
END SMT 
SMT 

SUBROUTINE PRST(GENEST, ISEED,N,M,NE,L,RG, UD, YMIN, YMAX,Y, SMT 

* GV,TTL, NSR, IFIL, NPRT,MSE,VMSE, IPR,VMX, IBIV,IBPTR,BIV, SMT 

* INSR,GPVAL,GSTAT,GBA,GBV,GBS,GVV, IBWPRT ,NCPRT , NCOLRNDX, SMT 


* 
7c 


¥ 


COLRXIS, IEST,NEST, 
COLRPLT , COLRSTAT , BA, BV,BS,V,DLH, VSCALE , IWIDTH, LABEL) 


PARAMETER (NBROWS=500) SMT 
REGRESSION ADJUSTED ESTIMATE SMT 
CALCULATES ESTIMATES FROM USER DATA USING "EST" FUNCTION SMT 
PLOTS BASIC OR RETRENCHED GRAPH ON LINE PRINTER SMT 
GENEST = SUBROUTINE GENERATE THE DATA AND PRODUCE ESTIMATE SMT 
ISEED = SEED FOR GENEST SMT 
N = NUMBER OF VALUES IN EACH REPLICATION (M*N MUST BE <= 50000) SMT 
M = NO. OF REPLICATIONS (MUST BE <= 100) SMT 
Y = USERS VECTOR WITH M CONSECUTIVE BATCHES OF N VALUES EACH SMT 
L = NO. OF SECTION SIZES (MUST BE BETWEEN 1 AND 8) SMT 
NE = ARRAY WITH THE L SUBSAMPLE SIZES (MUST BE IN ASCENDING ORDER)SMT 
UD = DEGREE OF THE REGRESSION (MUST BE <= 6 & <= L-1 ) SMT 


GV=WIDEST Y VALUES. PRINTED ON LAST PLOT TO AID IN SETTING SCALE SMT 
NSR=NUMBER OF REPETITIONS OF THE PLOT (EXTRA SUMMARY PLOT WHEN >1)SMT 
INSR=START SUPER-REPLICATION. NORMALLY 1 EXCEPT ON RESTART SMT 
IEST=NUMBER OF ESTIMATOR WE ARE CURRENTLY DEALING WITH (1,2,0R3) 
IBWPRT=O-NO STD PRINTOUS - 1 STD PRINTOUTS 

NCPRT=#OF SAMPLE SIZES FOR WHICH TO PRINT COLOR BOXPLOTS 
NCOLRNDX=ARRAY INDX TO NE() FOR COLOR BOXPLOTS 

COLRPLT=CHARACTER 3D ARRAY, 1 SHEET FOR EACH COLOR/ESTIMATOR 
ICLRLOCX=2D ARRAY, LOCS OF BOXPLOTS IN EACH SHEET 

COLRXIS=2DARRAY, CHAR. COLOR X AXIS 


real*8 ISEED 

INTEGER IBIV,IBPTRC8) ,NCOLRNDX(3) , ICLRLOCX(5, 3) 

CHARACTER*120 TTL SMa 
CHARACTER*1 PLOT( 122,50), CBAR,BLK,DASH,DOT,SYM(11),XAXIS(122,2), SMT 
COLRPLT( 122 ,50,5) ,COLRAIS(@ii22- 2 jet ee Ome 2258) 


CHARACTER*8 LABEL(7) SMT 
DIMENSION NE(8) SMT 
INTEGER NB(8),LOCX(8),D1,IWIDTH,UD,D,LT,DT,RG, DA,D1A SMT 
REAL BIV(NBROWS, 8) ’ SMT 
REAL*4 PVAL(8,11), QVAL(11),VNORM(11), VMSE(8) SMT 
REAL*4 DLH(4),Y(1),GV(2), SVAR(8),COLRSTAT(8,7,5) SMT 
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22 
VZ3 
724 
1D 
726 
red 
728 
eee, 
730 
pol 
732 
783 
734 
735 
730 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
(sy 
(a5 
754 
[Sys 


401 


CG «== 


CG --- 


86 
84 


REAL*4 RH(8,100),STAT(8,7),VT(8), VMX(8,4),VXCNT(8,4) 
REAL*8 SUM2,SUM3,SUM4 


SMT 
SMT 


REA Gory RV Gon?) 9507. 100),V07)>BAC7),BV(7),BS(7),RIC6) , BTC 8) SMT 


INTEGER ISCOL(5) 
REAL*8 GSTAT(8,7,2), GPVAL(8,11,2) 
REAL*8 XSTAT(8,7,2), XPVAL(8,11,2) 
REAL*8 GBA(7,2), GBV(7,2), GBS(7,2), GVV(7,2) 
REAL OG MBA( 7,2), 9ev( 7,2), XBS(7,2), XVV(7,2} 
DATA B/700*0. / 
DATA BLK/' '‘/, — @BAR/'|'/, DOT/'.'/ 
DAgamscOl, 1.2.4.5, 7/ 
DATA SYM/'&',' $' eon MeO! .'%' Sea's ,'&'/, NS¥M/11/ 
DATA QVAL/. 01, es OR to 25. 3 - "90, .95,.975,.99/ 
DATA VNORM/-2. 33, -1. 96, SEES = 29, -.67, 0., 
TO yen? 9 , dn es. 1. 96 joy 33/ 
DATA ICSPCE/1/ 
JCSPCE=( ICSPCE+3 )*NEST 
pO’ 401 I=1,7 
V(I)=0 
DENG) =1. 
DENC2 )=— 
Dinie@e)=l22- 
DLAC4 )=50. 
LABEL( 1)='MEAN' 
LABEL(2)=' STD’ 
LABEL(3)='STD MEAN' 
LABEL( 4)='SKEWNESS' 
LABEL(5)='KURTOSIS' 
LABEL(6)='M.S.E_ ' 
LABEL(7)='SER. COR. ' 
CLEAR COUNTS MATRIX FOR PERCENTILE PLOT 
DO iel— 16 
DO 2 J—i 
PAG Niel= J )—=0- 
CONTINUE 
CONTINUE 
D=MINO(UD,L-1) 
DEGREE OF REGRESSION FOR AVERAGES LIMITED TO 4 
DA=MIN(4, D) 
D1=D+1 
D1A=DA+1 
1X1=8 
LX2=7 
MN=M*N 
IWIDTH= IFIX(DLH(3)) 
BUILD REGRESSION MATRICES FOR AVERAGES AND VARIANCES 
boess K=1 L 
DO 86 J=1,D1 
T=FLOAT(NE(L) ) /FLOAT(NE(K)) 
RACK, J)=T**(J-1) 
RV(K,J)=T**(FLOAT(J)*. 5) 
CONTINUE 
CONTINUE 
SET HORIZONTAL XMIN, XMAX 
XMIN=. 7**NE( 1) 
XMAX=1. 2*NE(L) 
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778 
ha 
780 
781 
oz 
765 
784 
785 
786 
787 


C --- SCALING FACTORS FOR REGR. , QUANTILE PLOT & NORM. QUANTILE (QVSC) 
VSCALE=( DLH( 4) -DLH( 2) ) /( YMAX-YMIN) 
HSCALE=( DLH( 3) -DLH( 1) ) /( XMAX-XMIN) 
QVSC =(DLH(4)-DLH(2))/(3. - (-3.)) 


WRITE(5,*)'COMPUTING BOXPLOT LOCATIONS' 


E COMPUTE LOCATION OF BOXPLOTS ALONG X-AXIS 
LAST=-1 
DO 5 K=1,L 
NB( K)=N/NE(K) 
LOCX( K)=(NE(K)-XMIN)*HSCALE + DLH(1)+. 5 
IF(LOCX(K). LT. LAST+4) LOCX(K)=LAST+4 
LAST=LOCX(K) 
5 CONTINUE 
IF(LOCX(L) .GT. 120) LOCX(L)=120 
C COMPUTE LOCATION OF COLOR BOXPLOTS 
C WE WILL DO THIS ONCE ONLY. CAN DO ALL ESTIMATOR LOCATIONS FOR COLOR 
C USING THE FIRST ESTIMATOR POSITIONS AND OFFSETS. 
IF(IEST.NE.1) GOTO 7 


C ICSPCE IS SPACING FOR COLOR BOXPLOTS (1 ==> 1 SPACE BETWEEN, 
C 0 ==> ADJACENT) 


C FIRST COMPUTE POSITIONS OF SECOND ESTIMATOR (CENTER) 
DO 6 K=1,NCPRT 


USE SAME HORIZONTAL SCALE AS DETERMINED ABOVE FOR BW BOXPLOTS 

WE ARE COMPUTING THE LOCATIONS OF THE SECOND PLOT OF EACH 
GROUP, AND WE WILL THEN OFFSET THE OTHERS BASED ON THE SPACING 
COMPUTE TENTATIVE POSITION BASED ON SCALE, THEN CHECK BOUNDS 
KK=( NEC NCOLRNDX(K) ) -XMIN )*HSCALE+DLH(1)+. 5 


Co GGi-G) C2 


C MINIMUM BOXPLOT POSITION IS 6+ICSPCE, FOR CENTER(SECOND) BOXPLOT 
IF(K. EQ. 1) THEN 
IF(KK. GE. 6+ICSPCE) ICLRLOCX( 2, 1)=KK 
IF(KK. LT. 6+ICSPCE) ICLRLOCX( 2, 1)=6+ICSPCE 
ENDIF 
CHECK THAT THERE IS AT LEAST (3+ICSPCE)*sNEST NUMBER OF SPACES 
BETWEEN EACH GROUP OF PLOTS 
SQ THAT ALL THE ESTIMATORS WILL FIT. THIS IS JCSPCE. 


C22 ©) 


IF(K. EQ. 2) THEN 
IF(KK-IGLRLOGX( 2. 1) 1 tegesPons) 
ze ICLRLOCX( 2 ,2)=ICLRLOCX(2,1)+JCSPCE 
IF( KK-ICLRLOCX( 2,1). GE. JCSPCE ) ICLRLOCX( 2, 2)=KK 
ENDIF 


IF(K. EQ. 3) THEN 
IF( KK-ICLRLOCX( 2,2). LT. JCSPCE) 
ve ICLRLOCX( 2 ,3)=ICLRLOCX( 2 ,2)+JCSPCE 
IF(KK-ICLRLOCX( 2,2). GE. JCSPCE) ICLRLOCX( 2,3)=KK 
ENDIF 


SMT | 
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856 
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858 
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860 
861 
862 
863 
864 
865 
866 
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870 
871 
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C NOW OFFSET THE OTHER ESTIMATOR'S LOCATIONS TO EITHER SIDE OF THESE 


IFCNEST. GE. 2) ICLRLOCX( 1,K)=ICLRLOCX( 2 ,K)-3-ICSPCE 
IFCNEST. GE. 3) ICLRLOCX( 3 ,K)=ICLRLOCX( 2,K)+3+ICSPCE 
IFCNEST. GE. 4) ICLRLOCX(4 ,K)=ICLRLOCX( 2 ,K)+6+ICSPCE+ICSPCE 
IF(NEST. GE. 5) ICLRLOCX(5 ,K)=ICLRLOCX( 2 ,K)+9+3*ICSPCE 


IF THE POSITION OF THE RIGHTMOST MEMBER OF THE GROUP OF BOXPLOTS 
EXCEEDS THE RIGHT MARGIN, MOVE THEM ALL BACK AN AMOUNT OF THE 
THE DISTANCE FROM THE MARGIN, THEN SET THE LAST ONE AT THE MARGIN 


C27 c27 2 C2 Ca 


IF( ICLRLOCX(NEST,K).GT.120) THEN 
DO 8 I=1,NEST-1 
8 ICLRLOCX(I , K)=ICLRLOCX(1,K)-( ICLRLOCX(5 ,K)-120) 
ICLRLOCX(NEST ,K)=120 
ENDIF 
6 CONTINUE 
7 CONTINUE 
g 
C---- LABEL X-AXIS 
me) WUS Leal ee 
XAXIS(1I,1)=DASH 
XAXIS(1,2)=BLK 
IF( IEST. EQ. 1)COLRXIS(I,1)=DASH 
IF(IEST. EQ. 1)COLRXIS(I,2)=BLK 
115 CONTINUE 
Ome Oo J—1 1, 
IBPTR(J)=0 
XAXIS(LOCX(J),1)=CBAR 
IK = NE(J) 
oe GX Gy) 
CALL NUMPRT(1IX,2,1K,XAXIS) 
130 CONTINUE 
C 
C THE X AXIS POSITION MARKER IS PLACED AT THE POSITION OF THE’ SECOND 
C BOXPLOT FOR COLOR COMBINED PLOTS 
C 
IF(IEST.NE.2)GOTO 132 
DO 131 J=1,NCPRT 
COLRXIS( ICLRLOCX( IEST,J),1)=CBAR 
IK=NE( NCOLRNDX(J)) 
TX=ICLRLOCX( IEST, J) 
CALL NUMPRT(IX,2,IK,COLRXIS) 
iL ial CONTINUE 


C FIND NO. OF STATISTICS TO BE CALCULATED AT EACH SAMPLE SIZE 
£32 L1i=0 

L2=0 

L3=0 

DO 21 I=1,L 


Kl = M*(N/NE(I)) 
IF (K1.GE.2) L1=I 
IF (K1.GE.3) L2=I 
IF (K1.GE.4) L3=I 
21 CONTINUE 
DT=MIN(D1, 11) 
C --- CLEAR GRANDTOTALS FOR SUMMARY PAGE EXCEPT WHEN RESTARTING 
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SMT 
SMT 
SMT 


SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SL 


SMT 
SMT 
SMT 
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SMT 
OMT 
SMT 
SMT 
SMT 
OMT 
SMT 


890 
891 
S22 
893 
894 
S22 
896 
897 
898 
899 
900 
JOR 
902 
205 
904 
905 
906 
907 
908 


Ca C2 


IFCINSR .EQ. 1) CALL CLRGT(GBA,GBV,GBS,GVV,GSTAT,GPVAL) 
--- OUTER LOOP ADDED 07-16-84 TO DO MULTIPLE RUNS PER NSR PARAMETER 


DO 2000 ISREP=INSR,NSR 

WRITE(5,*) ‘ESTIMATOR ',IEST,' SUPER-REP #',ISREP,' (OF ',NSR,' )' 
CLEAR PLOT ARRAY, BW ONLY 
CALL CLRPA( PLOT) 


INITIALIZE COUNTER FOR COLOR PLOT INDEX 
KCOUNT=1 


DO 80 K=1,L 
WRITE(5 ,557)NE(K) 


557 FORMAT(/'SUBSAMPLE SIZE: ‘',I5) 


OG Oe 2] Oo) 1 © 


NBK=NB(K) 
SECTION & COMPUTE ESTIMATORS FOR SIZE K 
CALL SECEST(GENEST, ISEED,N,M,NE(K),Y,KP) 
AVERAGE ESTIMATES OF SIZE NE(K) FOR EACH OF M REPLICATIONS 
KP=0 
DO 10 I=1,M 
RH(K,1)=0. 
DO 15 J=1,NBK 
KP=KP+1 
GV(1)=AMIN1(GV(1), YCKP)) 
GV( 2)=AMAX1(GV(2), Y(KP)) 
RH(K,1)=RH(K,1)+Y(KP) 
15 CONTINUE 
RH(K, 1)=RH(K, 1) /FLOAT(NBK) 
10 CONTINUE 
COMPUTE MEAN AND MOMENT ESTIMATES 
CALL CMPMOM(Y,KP,VMSE,MSE,K, STAT,SVAR) 
DO 180 IM1=1,KP 
--- APPEND TO BIVARIATE MATRICES 
IF(IBPTR(K) .LT. NBROWS) THEN 
IBPTR(K)=IBPTR(K)+1 
BIV(IBPTR(K), K)=Y(IM1) 
ENDIF 
--- FREQUENCY COUNTS FOR PERCENTILE PLOTS 
IF(IPR .EQ.1) THEN 
DO 181 IK=1,4 
IF(Y(IM1) .LE. VMX(K,IK)) VXCNT(K, IK)=VXCNT(K,IK) + 1 
181 CONTINUE 
ENDIF 
180 CONTINUE 
CALL BOXPRT(Y,KP,LOCX(K) ,PLOT,RG,XMIN, YMIN, XMAX, YMAX, VSCALE) 
FOR COLOR BOXPLOTS, IF K, THE INDEX THROUGH ALL THE SAMPLE SIZES, 
IS EQUAL TO THE INDEX OF SAMPLE SIZES SPECIFIED FOR COLOR PLOTS, 
THEN PREPARE A BOXPLOT FOR THIS SAMPLE SIZE, AT LOCATION DETERMINED 


SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 


ABOVE. MOVE SHEET OF 3D PLOT ARRAY TO TEMP (2D ARRAY), CALL BOXPRT, AND 


THEN RESTORE SHEET OF 3D ARRAY. 


IF KCOUNT GT NCPRT THEN WE HAVE DONE ALL THE SAMPLE SIZES FOR THIS 
ESTIMATOR : 


IF(KCOUNT. GT. NCPRT)GOTO 184 
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ae 


=a 


= = 


@ 
C FOUND A SAMPLE SIZE, AND NOW WANT A COLOR BOXPLOT 
C FIRST CLEAR TEMPLOT ARRAY, AND THEN PUT BOX PLOT IN IT 
CALL CLRPA( TEMPLOT) 
@ 
C FOR SUPERREPS, ONLY DO COLOR COMBINATION FOR FIRST SUPERREP 
IF(ISREP. GT. 1)GOTO 182 
CALL BOXPRT(Y,KP, ICLRLOCX( IEST,KCOUNT) , TEMPLOT, RG, XMIN, YMIN, XMAX, 
* YMAX,VSCALE) 
DO 183 KK=1,122 
DO 183 IKK=1,50 
183 IF(COLRPLT(KK, IKK, IEST). EQ. BLK)COLRPLT( KK, IKK, IEST)=TEMPLOT( KK, IKK 
C) 
182 CONTINUE 
é 
C 
KCOUNT=KCOUNT+1 
g 
C --- STORE QUANTILES FOR 2ND PAGE PLOT 
184 DO 18 IQ=1,NSYM 
PVAL(K,1Q)=PCTL(Y,KP,QVAL(1IQ),1) 
18 CONTINUE 
80 CONTINUE 
C 
C IF Dl. LT. 2 THEN NO REGRESSIONS OR PLOTING CAN BE DONE 
C 
iGreen 2) GO. TO. 113 
DO 92 K=1,M 
DO 47 J=1,L 
RT(J)=RH(J,K) 
47 CONTINUE 
CALL RREG(RA,RT,BT,L,D1A, 1X1, 1X2) 
B(1,K)=BT(1) 
DO 23 KT=2,D1A 
B(KT ,K)=BT( KT )*NE(L)**(KT-1) 
23 CONTINUE 
92 CONTINUE 
6 
C AVERAGE REGRESSION COEFF. OVER M REPLICATIONS & CALC. VARIANCE 
CALL COEFF(B,M,D1A, BA,BV,BS,V) 
C 
C ESTABLISH REGRESSION LINE & ASYMPTOTE 
C 
DO 98 I=3,IWIDTH 
C MAP I FROM DEVICE SPACE TO USER SPACE 
UX=(I-DLH(1))/HSCALE + XMIN 
C COMPUTE THE Y VALUE FROM X AND THE REGRESSION COEFFICIENTS. 
UY=BA(1) 
pow99 J=1,DA 
UY=UY+BA( J+1) /UX**J 
99 CONTINUE 
C 
¢ MAP THE Y VALUE FROM USER SPACE TO DEVICE SPACE 


IF(K. NE. NCOLRNDX( KCOUNT) )GOTO 184 


J=(UY-YMIN)*VSCALE + DLH(2) + .5 
PGi it. 1 .OR] J . Gis 509r6Ge TOMI 
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IFC PLOT( I,J) .EQ. BLK SPLOTCOR Ss) —fer 


C COMMENTED OUT THE LINES TO PUT REGRESSION LINES IN COLOR PLOT 


98 


120 


oaa 


Le 


48 


77 
(Gna 
113 


IFC ISREP. EQ. 1. AND. COLRPLIC1 {J S1EST )eeosree 
COLRPLT(I,J,IEST)=DOT 


CONTINUE 


SCALE ASYMPTOTE, BETAO, AND PLOT ACROSS PLOT. 
J=(BA(1)-YMIN)*VSCALE + DLH(2) + .5 
IFCJ .LY. 1 .0OR> J 3G) Sojecer lem 
DO 120 I=3,IWIDTH 
IF(PLOT(I,J) .EQ. BLK) PLOT(I,J)=DASH 
IFC ISREP. EQ. 1..AND. COERPLTC 1,37 LEST) a> bite) 
COLRPLT(I,J, IEST)=DASH 
CONTINUE 


REGRESSION ON VARIANCES FROM EACH SEGMENT WITH A VARIANCE. 


CONTINUE 
IFC DT LT. 2) GO [Orme 
DO 48 J=1,L 
MODIFIED FOR MEAN SQUARE ERROR 
VT( J)=SVAR( J) * (NEC J)**0. 5) 
CONTINUE , 
CALL RREGCRV,VT,V,L1,DT, 1X1, 1X2) 
DO 77 I=1,DT 
VCI) = VCI)*NECL)**(FLOATCI)/2. ) 
CONTINUE 
ACCUMULATE FOR SUMMARY STATISTICS OVER SUPER-REPLICATIONS 
CONTINUE 
CALL CMPSUM(BA,BV,BS,V,DT,D1,L,STAT,PVAL,NSYM, 
GBA ,GBV,GBS,GVV,GSTAT,GPVAL) 


08 - 22286 


C UPDATE COLOR STATISTIC MATRIX WITH STATS FROM THIS ESTIMATOR 


450 


C2) C2 C2 C2 CO 


458 
456 


452 


453 


- USE FORMATTED FILE FOR EASE IN FURTHER PROCESSING. 
- IN Thee ce 


IF(ISREP. EQ. 1) THEN 

DO 450 I=1,8 

DO 450 J=1,7 

COLRSTAT(1,J, IEST)=STAT(I,J) 
ENDIF 


SAVE STATISTICS FOR THIS SUPER REPLICATION 


IF(IFIL. EQ. 1) THEN 
WRITE(1,458)TTL 
FORMAT( A120) 
WRITE( 1,456) ISREP 
FORMAT( 'SUPER-REP #: 
WRITE( 1,452) 
FORMAT('SAMP SIZE MEAN STD 


Talon 


DO 453 I=1,L 
WRITE( 1,451)NE(1I),(STAT(I, ISCOL(J)) ,J=1,5) 
WRITE(1, 454) 
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LABEL THE DATA 
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SMT 


SKEWNESS KURTOSIS SER CORR 


SMT 








454 


457 
455 
451 


C 
a 


Jue 


C 
C 
C 
C 
C 


85 


20 


11 


lly 
13 


14 


444 
220 
aa 
C -=—= 


C --- 


FORMAT( / QUANT. ROWS: 1 EA FOR .01 .025 .05 .1.25 .5.75 .9. 


eo 7S 99" ) 
Doras? J=lerl 
WRITE(1,455)(PVAL(I,J),1=1,8) 
FORMAT( 8G10. 4) 
FORMAT(1i0,(5G10. 4)) 
ENDIF 


PRINT ONLY FIRST 3 PLOTS WHEN NPRT=0. ONLY 1 PLOT OTHERWISE 
PECVER TONES dt) AND eiSREP -GF2- 3 ) GO TO 2000 
PeCNERec®. 1 . AND. ISKEP :GT. 1 ) GO TO 2000 

BWPRT FLAG IS NOT SET, DONT PRINT THESE STANDARD PRINTOUTS 
IFC IBWPRT. EQ.0)GOTO 2000 


PLOT teak teaeveseredededededed 


WRITE(6, 102) 
WRITE(6,161) N,M,D 
WRITE(6,101) 
DO 90 K=50,1,-1 

IF(MOD(K,5).NE.0) GO TO 85 
YLABEL=(K-DLH(2))/VSCALE + YMIN 
WRITE(6,103) YLABEL,(PLOT(1,K),I=1,IWIDTH) 
GO TO 90 

CONTINUE 

WRITE(6,100) (PLOT(I,K),I=1, IWIDTH) 
CONTINUE 
WRITE(6,106) (XAXIS(I,1),1=1, IWIDTH) 
WRITE(6,104) (XAXIS(1I,2),1I=1, IWIDTH) 
WRITE(6,156) 
WRITE(6,146) (NE(I),I=1,L) 
WRITE(6,157) LABEL(1), (STAT(K,1),K=1,L) 
WRITE(6,157) LABEL(2), (STAT(K,2),K=1,L1) 
WRITE(6,157) LABEL(3), (STAT(K,3),K=1,L1) 
IF(MSE .EQ. 1) WRITE(6,157) LABEL(6), (STAT(K,6),K=1,L1) 
WRITE(6,158) LABEL(4), (STAT(K,4),K=1,L2) 
WRITE(6,158) LABEL(5), (STAT(K,5),K=1,L3) 
IN@mieT.2) GO TO 444 
WRITE(6,151) (BA(I),I=1,D1A) 

IF(M. LT. 2)GO TO 444 
WRITE(6,152) (BV(1),I=1,D14) 
WRITE(6,153) (BS(1I),I=1,D1A) 

IF(DT. LE. 1) GO TO 999 
WRITE(6,159) (V(1),I=1,DT) 
WRITE(6, 162) 
WRITE(6,108) TTL 
WRITE(6,201) YMIN,YMAX 

PREPARE 2ND PAGE PLOT 
CLEAR PLOT ARRAY 
CALL CLRPA( PLOT) 
ENTER QUANTILES 
DO 220 K=1,L 

DO 240 IS=1,NSYM 

IQ=( PVAL(K,1S)-YMIN)*VSCALE + 1 
TeC10 .GE. 1°MAND!) 10 . LE. SO)MPEOTCLOGX(K), 10)=SYM(IS) 
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OMT 


1114 
ILLS 
Lal alte; 
1117 
1118 
1g 
1120 
1121 
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Pie 
1124 
1125 
AS 
ee 
1128 
WIL 
Lie 6 


C 


© C7 Gi Ga 


240 
220 


185 


ae) aL 


1240 
1220 


C 


1 


260 


@ oe 


iS 


CONTINUE 
CONTINUE 
PRINT 2ND PAGE 
WRITE(6, 202) 
WRITE(6,161) N,M,D 
WRITE(6,101) 
DO 191 J=1,50 
K=51-J 
IF(MOD(K,5).NE.0) GO TO 185 
YLABEL=(K-DLH(2))/VSCALE + YMIN 


WRITE(6,103) YLABEL,(PLOT(I,K),I=1,IWIDTH) 
GO T@utea 

CONTINUE 

WRITE(6,100) (PLOT(I,K),I=1,IWIDTH) 
CONTINUE 


WRITE(6,106) (XAXIS(I,1),I=1, IWIDTH) 
WRITE(6,204) (XAXIS(I,2),I=1, IWIDTH) 
PRINT QUANTILE AMOUNTS 

WRITE(6, 156) 

WRITE(6,147) (NE(I),I=1,L) 

DO 199 I=1,NSYM 
WRITE(6, 167) 
CONTINUE 

WRITE(6,158) LABEL(7), (STAT(K,7),K=1,L1) 

WRITE(6,108) TTL 

WHEN NPRT=1 SUPPRESS NORMALIZED PLOTS 
IF(NPRT .EQ. 1) GO TO 2000 


QVAL(I), (CPVALC(K,I) ,K=1,L) 


PREPARE 3ND PAGE PLOT 
CLEAR PLOT ARRAY 
CALL CLRPA( PLOT) 
NORMALIZE QUANTILES 
DO 1220 K=1,1L 
DO 1240 IS=1,NSYM 
IF(STAT(K,2).GT.0) PVAL(K,IS)=(PVAL(K,IS)-STAT(K,1))/STAT(K, 2) 
IQ=( PVAL(K,1IS)+3. )*QVSC + 1 
IF(IQ .GE. 1 .AND. IQ .LE. 50) PLOT(LOCX(K), IQ)=SYM(IS) 
CONTINUE 
CONTINUE 
ADD RIGHT SIDE NORMAL POINT MARKS 
DO 1260 IS=1,NSYM 
IQ=( VNORM(IS)+3. )*QVSC + 1 
IF(IQ .GE. 1 .AND. IQ .LE. 50) PLOT(122, IQ)=SYM(IS) 
CONTINUE 
PRINT 3RD PAGE 
WRITE(6, 203) 
WRITE(6,161) N,M,D 
WRITE(6,101) 
ae) IS weil Bo 
K=51-J 
IF(MOD(K,5).NE.0) GO TO 1185 
YLABEL=(K-DLH(2))/QVSC - 3. 


WRITE(6,103) YLABEL,(PLOT(I,K),I=1,IWIDTH) 
GO TO 1191 

CONTINUE 

WRITE(6,100) (PLOT(1I,K),I=1,IWIDTH) 
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1 a 
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1191 CONTINUE 


WRITE(6,106) (XAXIS(I,1),I=1, IWIDTH) 
WRITE(6,104) (XAXIS(I,2),1=1, IWIDTH) 


C --- PRINT NORMALIZED QUANTILE AMOUNTS 


WRITE(6, 156) 

WRITE(6,147) (NE(I),I=1,L) 

DO 1199 I=1,NSYM 

WRITE(6,167) QVAL(I), (PVAL(K,I),K=1,L) 


1199 CONTINUE 


WRITE(6,108) TTL 


C Phe heer sire isrl oleae Seki sek Scho ioe ge he isk be La AAS he ASL Aes AD 
2000 CONTINUE 


IF(NSR .EQ. 1) RETURN 

PO 360 I=1,L 

DO 370 J=1,7 
XSTAT(1,J,1)=GSTAT(1I,J,1)/NSR 
XSTAT(1,J,2)=(GSTAT(1,J,2)-NSR*XSTAT(1,J,1)**2)/ 

((NSR-1)*NSR) 

IF(XSTAT(1,J,2) .LT. 0) XSTAT(I,J,2)=0 
XSTAT(I,J,2)=SORT(XSTAT(1I,J,2)) 


370 CONTINUE 
360 CONTINUE 


378 
375 


eo 
(ee 
f. t2)- 


C --- 


2240 
2220 


CGC --+- 


2185 


Zhe 


¥ 


Des one 
DO 378 IS=1,NSYM 
XPVAL(K,1IS,1)=GPVAL(K,IS,1)/NSR 
XPVAL(K,IS,2)=(GPVAL(K, IS, 2) -NSR*XPVAL(K,1S,1)**2)/ 
((NSR-1)*NSR) 
IF(XPVAL(K,IS,2) .GT. 0.) XPVAL(K,IS,2)=SQRT(XPVAL(K,1IS,2)) 
IF(XPVAL(K,IS,2) .LT. 0.)} XPVAL(K,IS,2)=0. 
CONTINUE 
CONTINUE 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS$$ 
PREPARE SUPER REPLICATIONS QUANTILE PLOT 
CLEAR PLOT ARRAY 
CALL CLRPA( PLOT) 
ENTER QUANTILES 
DO 2220 K=1,L 
DO 2240 IS=1,NSYM 
IQ=(XPVAL(K,IS,1)-YMIN)*VSCALE + 1 
IF(IQ .GE. 1 .AND. IQ .LE. 50) PLOT(LOCX(K), 1Q)=SYM(IS) 
CONTINUE 
CONTINUE 
PRINT SUMMARY QUANTILE PLOT 
WRITE(6,173) 
WRITE(6,161) N,M,D 
WRITE(6,101) 
DO 2191 J=1,50 
K=51-J 
IF(MOD(K,5).NE.0) GO TO 2185 
YLABEL=(K-DLH(2))/VSCALE + YMIN 


WRITE(6,103) YLABEL,(PLOT(1I,K),I=1, IWIDTH) 
CORAO. 2191 

CONTINUE 

WRITE(6,100) (PLOTCI,K),1I=1,IWIDTH) 
CONTINUE 


WRITE(6,106) (XAXIS(I,1),I=1, IWIDTH) 


hI 


MW PLPAS 
1227 
E223 
t227 
Pou 
ioe 
1252 
$233 
1234 
i235 
ILA ais 
2817) 
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Me Sie, 
1240 
1241 
1242 
1243 
1244 
1245 
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wae 
Pas 
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WRITE(6,104) (XAXIS(1I,2),I=1, IWIDTH) 

PRINT QUANTILE AMOUNTS 

WRITE(6, 156) 

WRITE(6,147) (NE(I),I=1,L) 

DO 2199 I=1,NSYM 

WRITE(6,167) QVAL(I), (XPVAL(K,1I,1),K=1,L) 
CONTINUE 

WRITE(6,158) LABEL(7), (XSTAT(K,7,1),K=1,L1) 
WRITE(6,108) TTL 

AAPEAEDELAEOALS SS AMAA AAAS SADA AA DAS EAs 

PRINT SUMMARY STATISTICS P 

WRITE(6,171) NSR 

WRITE(6,172) (NE(I),I=1,L) 

WRITE(6, 262) 

WRITE(6,157) LABEL(1), (XSTAT(K,1,1), K=1,L) 
WRITE(6,157) BLK, (XSPAT(K 142), K=1,5) 
WRITE(6, 262) 

WRITE(6,157) LABEL(2), (XSTAT(K,2,1), K=1,11) 
WRITE(6,157) BLK, (XSTAT(K,2,2), K=1,L1) 
IF(MSE .NE. 1) GO TO 443 

WRITE(6, 262) 
WRITE(6,157) LABEL(6), (XSTAT(K,6,1), K=1,L1) 
WRITE(6,157) BLK, (XSTAT(K,6,2), K=1,L1) 


CONTINUE 

WRITE(6, 262) 

WRITE(6,157) LABEL(4), (XSTAT(K,4,1), K=1,L2) 
WRITE(6,157) BLK, (XSTATOR, 4,2), K=1,12) 
WRITE( 6,262) 

WRITE(6,157) LABEL(5), (XSTAT(K,5,1), K=1,L3) 
WRITE(6,157) BLK, (XSTAT(K,5,2), K=1,L3) 
WRITE(6, 262) 

WRITE(6,157) LABEL(7), (XSTAT(K,7,1), K=1,11) 
WRITE(6,157) BLK, (XSTAT(K,7,2), K=1,L1) 


PRINT QUANTILE STATISTICS 
WRITE(6,169) 

DO 445 I=1,NSYM 

WRITE CGE Zcz) 

WRITE(6,167) QVAL(I), (XPVAL(K,I,1),K=1,L) 
WRITE(6,168) BLK, (XPVAL(K,I,2),K=1,L) 
CONTINUE 


DO 350 I=1,6 

XBA(I,1)=GBA(I,1)/NSR 

XBA(I,2)=SQRT( (GBA(I,2)-NSR*XBA( I, 1)**2) / 
((NSR-1)*NSR)) 

XBV(I,1)=GBV(I,1)/NSR 

XBV(I,2)=SQRT((GBV(I,2)-NSR*XBV(I,1)**2)/ 
( (NSR-1)*NSR) ) 

XBS(I,1)=GBS(1,1)/NSR 

XBS(I,2)=SQRT( (GBS(I,2)-NSR*XBS(I, 1)**2)/ 
((NSR-1)*NSR) ) 

XVV(I,1)=GVV(I,1)/NSR 

XVV(I,2)=SQRT((GVV(I,2)-NSR*XVV(I, 1)**2)/ 
( (NSR-1)*NSR) ) 


350 CONTINUE 


C 


| 2 


SMT 
SMT 


SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 


SMT 


SMT 
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ee 
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1282 
1263 
1284 
1285 
1286 
1257 
1288 
1289 
1290 
129 1 
P22 
Zo 3 
1294 
1295 
1296 


410 


420 


100 


171 FORMAT('1' ,30X,'SUMMARY STATISTICS (MEAN/STD)', 


¥¢ 


ine. iT 2)eGo TO 410 

WRITE( 6,262) 

WRITE(6,151) (XBA(I,1),I=1,D1A) 
WRITE(6,176) (XBA(I,2),I=1,D1A) 
inGieeLE 2) GO TO 410 
WRITE(6, 262) 

WRITE(6,153) (XBS(I,1),I=1,D1) 
WRITE(6,176) (XBS(1I,2),I=1,D1) 
CONTINUE 

ign = LT. s2)6GO TO 420 
WRITE(6, 262) 

WRITE(6,159) (XVV(I,1),I=1,DT) 
WRITE(6,176) (XVV(I,2),1=1,DT) 
CONTINUE 


WRITE( 6, 262) 
WRITE(6,108) TTL 
PERCENTILE PLOT 


IF(CIPR .EQ. 1) CALL PRPLOT(M,N,NSR,L,NE,D,VMX,VXCNT,PLOT,TIL, 


XAXIS , LOCX) 


BORMANCOG. , 122 Ad ) 
roman 1) 
FORMAT(' ',G8.2,'-',122A1,'|') 
FORMAT( 10X,122A1) 
FORMAT(9X,'+',122A1,'+') 
FORMAT(10G13. 8) 

FORMAT(/,' ESTIMATOR: ‘,A120) 


FORMAT(/,' MEAN OF REGRESSION ON AVERAGES’ ,6G17. 4) 
,6G17. 4) 


FORMAT( ' 
FORMAT(' VARIANCE OF REGRESSION' ,8X,6G17. 4) 
FORMAT(' STD DEV OF REGRESSION’ ,9X,6G17. 4) 
FORMAT(/' SUBSAMPLE’ ) 

FORMAT( ' SIZE eel S.iGh) 5 / ) 

FORMAT( ' SIZE ",8(18,6X),/' QUANTILE' ,/) 
FORMAT(1X,F5. 3,6X,8G14. 4) 

FORMAT(1X,A8,3X, 8G14. 4) 

FORMAT(/,' QUANTILES' ) 
FORMAT(1X,A8,3X,8G14. 4) 

FORMAT( 1X,A8, 8F14. 4) 

FORMAT(/,' REGRESSION ON VARIANCE’ ,7X,6G17. 4) 


FORMAT(9X,' SAMPLE SIZE (N):',I5,20X,'NO. OF REPLICATIONS (M):', 


+I15,18X,'DEGREE OF REGRESSION (D): ',I3) 
162 FORMAT(/) 


18,' SUPER-REPLICATIONS' ) 
FORMAT(/;' SUBSAMPLE',/,' SIZE 


FOC TBWEX) , /) 


SMT 


FORMAT('1',30X, SUMMARY QUANTILE PLOT FOR ALL SUPER-REPLICATIONS' )SMT 


FORMAT(' ') 


FORMAT( 1X, 'VERTICAL SCALE: YMIN =',F10.4,/,18X,'YMAX =' ,F10.4/) 


FORMAT('1',40X,'QUANTILE PLOT') 
FORMAT('1',40X, 'NORMALIZED QUANTILE PLOT’) 
END 
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1336 SUBROUTINE SETCOLR(I) 

1337 WRITE(6,1)I 

1338 1 FORMAT('+?r' ,I1) 

1339 RETURN 

1340 END 

1341 SUBROUTINE CLRCOLR( COLRPLT) 

1342 CHARACTER COLRPLT(122,50,5)*1 

1343 DO 1 I=1,122 

1344 DO 1 J=1,50 

1345 DO 1 K=1565 

1346 1 COLRPLT(I,J,K) ='° ' 

1347 RETURN 

1348 END 

1349 C--- 

1350 SUBROUTINE CMPSUM(BA,BV,BS,V,DT,D1,L,STAT, PVAL,NSYM, 
1351 GBA,GBV ,GBS,GVV,GSTAT , GPVAL) 
1352 C.--- ACCUMULATE SUMMARY STATISTICS: GBA,GBV,GBS,GVV,GSTAT,GPVAL 
1353 REAL*4 STAT(8,7) ,PVAL(8,11) 

1354 REAL*4 V(7),BA(7),BV(7),BS(7) 

1255 REAL*8 GSTAT(8,7,2), GPVAL(8,11,2) 

1356 REAL*8 GBA( 7,2), GBV(7,2), GBS(7,2), GVV(7,2) 
1257 INTEGER L,DT,D1,NSYM 

1358 IF(Di. LT. 2 .OR. DI. 1T.2) seem 13 

1359 DO 300 I=1,6 

1360 GBA(I,1)=GBA(I,1) + BACI) 

1361 GBA(I,2)=GBA(I,2) + BA(I)**2 

1362 GBV(I,1)=GBV(I,1) + BV(I) 

1363 GBV(I,2)=GBV(I,2) + BVCI)**2 

1364 GBS(I,1)=GBS(I,1) + BS(I) 

1365 GBS(1,2)=GBS(1I,2) + BS(1I)**2 

1366 IF(I .LE. DT) THEN 

1367 GVV(I,1)=GVV(I,1) + V(I) 

1368 GVV(I,2)=GVV(I,2) + VC 1)**2 
1369 ENDIF 

1370 300 CONTINUE 

1371 113 CONTINUE 

1372 DOwet0 1-1. 

1373 Dome 20J—157 

1374 GSTAT(I,J,1)=GSTAT(1I,J,1) + STAT(I,J) 

1375 GSTAT(1,J,2)=GSTAT(1I,J,2) + STAT(I,J)**2 
1376 320 CONTINUE 

1377. 310 CONTINUE 

1378 C --- COMPUTE SUMMARY FOR QUANTILES 

1379 DOMI2 21 k= 

1380 DO 1241 IS=1,NSYM 

1381 GPVAL(K,IS,1)=GPVAL(K,IS,1) + PVAL(K,IS) 
1382 GPVAL(K,IS,2)=GPVAL(K,1IS,2) + PVAL(K,IS)**2 
1383 1241 CONTINUE 

1384 1221 CONTINUE 

1385 END 

1386 C --- 

1387 SUBROUTINE COEFF(B,M,D1A, BA,BV,BS,V) 

1388 C --- COMPUTE REGRESSION COEFFICIENTS, VARS, ETC: BA,BV,BS,V 
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SMT 
SMT 


SMT 
OMT 
OMT 
SMT 
SMT 
SMT 
OMT 
OMT 
SMT 
OMT 
SMT 
oT 


SMT | 





1389 
13980 
1391 
1 he 
ooo 
1394 
1395 
7 6 
i 7 
i296 
199 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 


1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 


29 


95 


94 


C --- 


Crea 


180 


190 


419 


421 


REAL*4 V(7),BA(7),BV(7),BS(7), B(7,100) 
INTEGER D1A 

AM=M 

DO G3) 1=1,7 

BA(1)=0 

BV(1)=0 

BS(1)=0 

V(1)=0 

CONTINUE 

DO 94 I=1,DIA 

DO 95 J=1,M 
BA(1)=BA(1)+B(I,J) 
BV(I)=BV(I)+B(1I,J)**2 
CONTINUE 

BAC I)=BA(I)/AM 
IF(M.EQ.1)GO TO 94 
BV(1)=( BV( 1) -AM*BA( I )**2) /(AM*(AM-1. )) 
IF(BV(1) .LT. 0.) BV(1)=0 
BS(1)=BV(1)**. 5 

CONTINUE 

END 


SUBROUTINE CMPMOM(Y,KP,VMSE,MSE,K, STAT,SVAR) 
COMPUTE MOMENT ESTIMATES IN STAT(K,*) AND SVAR(K) 
REAL Y(1), VMSE(8), STAT(8,7), SVAR(8) 
REAL*8 XMEAN, DEV ,SUM2,SUM3,SUM4 
XMEAN=0. 
DO 180 IM1=1,KP 
XMEAN=XMEAN+Y(1M1) 
CONTINUE 
XME AN=XMEAN /FLOAT(KP) 
SUM2 = 0. ODO 
SUM3 = 0. ODO 
SUM4 = 0. ODO 
DO 190 IP1=1,KP 
DEV = Y(IP1) - XMEAN 


lou tt 


SUM2 = SUM2 + DEV * DEV 

SUM3 = SUM3 + DEV ** 3 

SUM4 = SUM4 + DEV ** 4 
CONTINUE 


CHECK TO INSURE SAMPLE SIZE IS LARGE ENOUGH FOR EACH MOMENT 
CLEAR STAT 
DO 419 IP1=1,7 
STAT(K,1P1)=0. 
CONTINUE 
IF (KP. LT. 2) GO TO 9 
VAR = SUM2 / (KP - 1.0) 
STDV = SQRT( VAR) 
SERIAL CORRELATION 
SERCOR=0. 
DO 421 IP1=2,KP 
SERCOR=SERCOR + (Y(IP1-1)-XMEAN)*( Y( IP1)-XMEAN) 
CONTINUE 
SERCOR=SERCOR/( (KP-1)*VAR) 


15 


1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 


1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 


@ vse 


C--- 


C --- 


CGC --- 


CGC ««« 


1496 © 


1497 
1498 


IF (KP. LT. 3) GO TO 9 

SUM3 = SUM3 * KP /( (KP-1.) * (KP-2.)) 

SKEW = SUM3 / STDV ** 3 

IF (KP.LT.4) GO TO 9 

SUM4 = SUM4*((KP-2. )*KP+3. )/((KP-1. )*(KP-2. )*(KP-3. )) 
SUM4 = SUM4 - VAR*VAR3. *(KP-1. )*(KP+KP-3. )/(KP*(KP-2. )*(KP-3)) 
CKURT = SUM4 / (VAR * VAR) - 3. 

STAT(K, 1)=XMEAN 

STAT(K,2)=STDV 

STAT(K,3)=STDV/SQRT( FLOAT(KP)) 

STAT(K,4)=SKEW 

STAT(K,5)=CKURT 


MEAN SQUARE ERROR 05-25-86 


IFCMSE °EQ. 1) THEN 

STATCK,6)=SQRT( VAR + (XMEAN-VMSE(K) )**2) 
ELSE 

STAT(K,6)=0. 
ENDIF 


SVAR(K)=VAR 
STAT(K, 7 )=SERCOR 
END 


SUBROUTINE PRPLOT(M,N,NSR,L,NE,D,VMX,VXCNT, PLOT, TTL, XAXIS, LOCX) 
PRINT PERCENTILE PLOTS 09-09-86 

REAL*4 VMX(8,4),VXCNT(8,4), VXSTD(8,4) 

REAL*4 ULH(4) ,DLH(4) 

INTEGER NE(8), LOCX(8) 
CHARACTER*120 TTL 

CHARACTER*1 SYM(4), PLOT( 122,50) 
DATA DLH/1., 1.2122. ,5O0—/ outa 
CLEAR PLOT ARRAY 

CALL CLRPA( PLOT) 

SET HORIZONTAL XMIN, XMAX 

ULH( 1)=. 7*NE( 1) 

ULH(3)=1. 2*NE(L) 

ULH(2)=0. 

Una =i. 

XMIN=ULH( 1) 

XMAX=ULH( 3) 

YMIN=ULH( 2) 

YMAX=ULH( 4) 

IWIDTH=DLH( 3) 

SCALING FACTORS 
VSCALE=(DLH(4)-DLH( 2) ) /( ULH( 4) -ULH( 2) ) 


XAXIS( 122, 


2) 
» #t 5» C 5 ae 


CONVERT FREQUENCY COUNTS TO PROBS. FOR PLOT & VARS FOR PRINTING 
DO 10 I=1,8 
NBK=N/NE(I) 
AN=NSR*M*NBK 
DO 20 J=1,4 
P=VXCNT(I,J)/AN 
VXCNT(I,J)=P 
IQ=(P - ULH(2))*VSCALE + 1 
IQ=MIN(IQ, 50) 
IK=LOGKCD oe? 
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SMT 
SMT 
SMT 
SMT 
ome 
SMT 
SMT 
SMT 
OMT 
SMT 
OMT 
OMT 
SMT 
SMT 
OMT 
SMT 
OMT 
SMT 
SMT 


SMT 


1499 
1500 
501 
S04 
TS03 
1504 
1505 
1506 
107 
10S 
P09 
1510 
pom 1 
a2 
P13 
1514 
5 
15a:6 
Poh] 
18 
119 
120 
ies2 | 
P22 
115) A) 
1524 
25 
1526 
2) 
1S) 228) 
Ts29 
30 
ise 1 
US 3 
33 
1534 
1535 
1536 
13 / 
1538 
1ae9 
1540 
1541 
1542 
1543 
1544 
1545 


1546 
1547 
1548 
1549 
1550 
ie 
S35) 
1553 


zal 


20 


C --- 


2185 
Janis ht 


C --- 


173 


DO 21 K=1,1Q 
PLOT( IK, K)=SYM(J) 
CONTINUE 
VXSTD(I,J)=SQRT( P*(1-P)/AN) 
CONTINUE 
CONTINUE 
PRINT PERCENTILE PLOT 
WRITE(6,173) NSR 
WRITE(6,161) N,M,D 
WRITE(6, 101) 
DO 2191 J=1,50 
K=51-J 
IF(MOD(K,5).NE.0) GO TO 2185 
YLABEL=(K-DLH(2))/VSCALE + ULH(2) 


WRITE(6,103) YLABEL,(PLOT(1I,K),I=1,IWIDTH) 
GO TO 2191 

CONTINUE 

WRITE(6,100) (PLOT(I,K),I=1, IWIDTH) 
CONTINUE 


WRITE(6,106) (XAXIS(1I,1),1I=1,IWIDTH) 
WRITE(6,104) (XAXIS(1,2),1I=1,IWIDTH) 
WRITE(6,156) 
WRITE(6,146) (NE(I),1I=1,L) 
PRINT VARIANCES 
Dowson —1,4 
Mrimb(6,150))J3,. CVMX(1,J), 1 
WRITE(6,151) (VXCNT(I,J), I= 
WRITE(6,152) (VXSTD(I,J), I= 
CONTINUE 
WRITE(6,108) TTL 
FORMAT(9X,'{',122A1,'|') 
FORMAT(9X,'+' ,122('-'),'+') 
FORMAT('1' ) 
FORMATO: ."3G6a2, -9122A1,'|*) 
FORMAT( 10X,122A1) 
FORMAT( 9X, '+',122A1,'+') 
FORMAT(/,' ESTIMATOR: ',A120) 
FORMAT( ' SIZE ",8(18,6X) ) 
FORMAT(/,' X-VALUE-',12, 8G15.4) 
FORMAT( ' PERCENTILE’, 8615.4) 
FORMAT( ' ESTIM. STD', 8615.4) 
FORMAT(/' SUBSAMPLE’ ) 


FORMAT(9X,'SAMPLE SIZE (N):',I5,20X,'NO. OF REPLICATIONS (M):', 
+I5,18X,'DEGREE OF REGRESSION (D): ' ,13) 


FORMAT('1',30X,'PERCENTILE PLOTS FOR FOUR X-VALUES' ,I8, 


* §' SUPER-REPLICATIONS',/) 


END 


SUBROUTINE CLRGT(GBA,GBV,GBS ,GVV,GSTAT ,GPVAL) 


C --- CLEAR GRANDTOTALS 


REAL*8 GPVAL(8,11,2) 
Referer GBA 7.2), GBV(7,2), GBS(7,2), GVV(7,2)), GSTAT(8,7,2) 
DO 41 I=1,7 
DO 42 J=1,2 
GBA(I,J)=0 
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SMT 
SMT 
SMT 
OMT 
SMT 
OMT 
SMT 
SMT 
SMT 
SMT 
SMT 
OMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
OMT 


SMT 


SMT 


1554 
i>) 
IL SSNs) 
fo / 
1eyoxs) 
ILS Sy, 
1560 
1561 
1562 
1563 
1564 
1505 
1566 
1567 
1568 
69 


70 
7 1 
i572 
172 
1574 
1575 
1576 
77 
1578 
F579 


1580 
1581 
1582 
1583 
1584 
1585 
1586 
Po 
1588 
1589 
15910 
91 
eS o2 


GBVC I ,J)=0 SMT 
GBS(I,J)=0 SMT 
GVV(I,J)=0 SMT 

42 CONTINUE SMT 
41 CONTINUE SMT 
DO 43 I=1,8 SMT 

DO 44 J=1,7 SMT 

ESAT lee) =0 SMT 
GSTAT(I,J,2)=0 SMT 

44 CONTINUE iy ih 
DO 46 J=1,11 SMT 
GPVAL(I,J,1)=0 SMT 
GPVAL(I,J,2)=0 SMT 

46 CONTINUE SMT 
43 CONTINUE SMT 
END SMT 

C ott 
SUBROUTINE CLRPA( PLOT) SMT 
CHARACTER*1 PLOT( 122,50) ,BLK SMT 

DATA BLK/' '/ SMT 

DO'S J=1e50 Sia 

DO 4 [=1,122 SMT 

PLOT( I,J)=BLK SMT 

4 CONTINUE SMT 

3. CONTINUE SMT 
END SMT 

CS Fete deve rs Tove de Weve Tee We He ve Weve Ve Ve I ee TE He TE He Ve TEE HEE Te TE VE HE TE He Te ME Fe ENE Fe TE IEE Fe HE Te HE TE Te TE IE HEE TEE He He Fee WEE He IE HE SM T 
C SMT 
SUBROUTINE BOXPRTCY,NY,IX,PLOT,RG,XMIN, YMIN, XMAX , YMAX, VSCALE ) rey Uh 

C PREPARES BOXPLOT FROM VECTOR Y (CIN 2-D ARRAY PLOT) SMT 
CHARACTER*1 PLOT( 122,50) ,DASH,CBAR,CROSS,CSTR,CO SMT 

REAL YCNY) SMT 
INTEGER RG SMT 
LOGICAL LFLAG SMT 

DATA DASH/'-'/,CBAR/'|'/,CSTR/'*'/,CROSS/'+'/,C0/'0'/ SMT 

IFCNY .GE. 9) GO TO 5 SMT 

C WHEN LESS THAN 9 POINTS JUST SHOW THE POINTS SMT 
DO 8 I=1,NY SMT 
J=(CYCI)-YMIN)*VSCALE + 1. SMT 

C IGNORE VALUE IF IT FALLS OUTSIDE WINDOW SMT 
IF(J.GT.50. OR J. Li jWeGoe noma SMT 
PLOT(IX,J)=CO SMT 

8 CONTINUE SMT 
SUM=0. SMT 

DO 88 I=1,NY SMT 
SUM=SUM+Y( IT) SMT 

88 CONTINUE SMT 
SUM=SUM/FLOAT(NY) SMT 
MEAN=( SUM- YMIN)*VSCALE+1 SMT 
IF(MEAN. LE.50 .AND. MEAN.GE. 1) PLOTCIX,MEAN)=CSTR SMT 

GO TO 99 SMT 

5 CONTINUE SMT 
LFLAG=. FALSE. SMT 

SMT 


P25-—PCTECY, NY 5725.0) 
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1608 
1609 
1610 
tour 
1612 
Toul 3 
1614 
1615 
Téa 6 
io yy 
1618 
1619 
1620 
Psy 1h 
1622 
16i2 3 
1624 
162.5 
1626 
1627 
1628 
1629 
1630 
hoo 1 
HGS 2 
Eos 3 
1634 
R65 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
ie 1 
1652 
ros 
1654 
1C>> 
1656 
1657 
1658 
1659 
1660 
166 
1662 
1663 


Ca Ce CD 


20 


21 


Ji bo 


Zz) 


30 


oy) 


P75 =PCTL(Y,NY,. 75,1) 
P50 =PCTL(Y,NY,. 50,1) 
1Q1=(P25-YMIN)*VSCALE+1. 
1Q2=( P50-YMIN)*VSCALE#1. 
1Q3=(P75-YMIN)*VSCALE+1. 
XLOW=2"P25-P75 

ILOW=( XLOW -YMIN)*VSCALE41. 
XHI=2*P75-P25 

[HI=( XHI -YMIN)*VSCALE+1. 
CLOW=2. 5*P25-1. 5*P75 
CHI=2. 5*P75-1. 5*P25 


DRAW BOX 
DO 20 J=IQ1,IQ3 
i Camcr. 0°. OR. J. ideal) GO TO 20 


PLOT( IX-1,J)=CBAR 

PLOT( IX+1,J)=CBAR 
CONTINUE 

PaGeeinct 500. 0R. 101.LT.1) GO TO 21 
PLOT( IX-1,1Q1)=DASH 

PLOT( IX+1,10Q1)=DASH 

CONTINUE 

FECLOCME SO FORT TOS. LT. 1) GO TO 22 
PLOT( IX-1,1Q3)=DASH 

PLOT( IX+1, 1Q3)=DASH 

CONTINUE 


DETERMINE IF OUTLIERS ARE TO BE COUNTED AND THE NUMBER PRINTED. 


ie CRG. EQ. 1) GO BO 55 
DO 30 I=1,NY 
J=CYC 1) -YMIN)*VSCALE+1. 
IGNORE VALUE IF IT FALLS OUTSIDE WINDOW 
Pi Clh 50” eke. Li.1) GO TO30 
IFCY(1I). LT. CLOW) PLOTCIX,J)=CSTR 
Peer, 19% ba Chew) GO TO 30 
IFCY(1). GE. CLOW . AND. YCI). LT. XLOW) PLOTCIX,J)=CO 
iP CEP UAGes Ok. Y¥( jai KXLOW) GO TO 25 
THIS IS THE LOW-CROSS POINTER (1ST POINT GE XLOW) 
LF LAG=. TRUE. 
ILX=J 
NEXT LINE ENDS UP WITH HI-CROSS POINTER (LAST POINT LE XHT) 


IF(Y(I). LE. XHI) IHX=J 
nivemmer. XH . AND. Y@D) AWE. CHI) PLOTCIX,J)=CO 
IF(Y(1)}.GT. CHI) PLOT(IX,J)=CSTR 

CONTINUE 

GO TO 56 


SCALE TO INTERQUARTILE +(-) INTERQUARTILE DISTANCE. 


II=0 
III=0 
DO 31 I=1,NY 
J=(YC1)-YMIN)*VSCALE+1. 
TFG); br. CLOW) 11 =e] il 
IFC Y(1I).GT. CHI) III=III+1 
Pa@ieol.50 .OR. J.LI.%y GO 10 31 
IFC Y(1I).GE. CLOW . AND. YC I). LT. XLOW) PLOTCIX,J)=CO 
IF( LFEAGPTOR. YC1). LPSXLOW) GO TO 26 
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SMT 
OMT 
SMT 
SMT 
SMT 
OMT 
OMT 
OMT 
OMT 
OMT 
OMT 
OMT 
SMT 
OMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
OMT 
SMT 
OMT 
SMT 
SMT 
SMT 
SMT 
SMT 
SMT 
OMT 
OM 


OMT 


1664 C THIS IS THE LOW-CROSS POINTER (1ST POINT GE XLOW) SMT 
1665 LF LAG=. TRUE. SMT 
1666 I LX=J SMT 
1667 C NEXT LINE ENDS UP WITH HI-CROSS POINTER (LAST POINT LE XHI) SMT 
1668 26 IFCY(1). LE. XHI) IHX=J SMT 
1669 IF(Y(1).GT. XHI . AND. YCI). LE. CHI) PLOTCIX,J)=CO SMT 
1670 31 CONTINUE SMT 
oy C SMT 
loa2  C PRINT NUMBER OF OUTLIERS UNLESS 0. SMT 
1673 DO 36 K=1,2 SMT 
1674 IK=II SMT 
ie? 5 J=(CLOW-YMIN)*VSCALE + 1 SMT 
1676 IFCK. EQ. 2) IK=III SMT 
1677 IF(K. EQ. 2)J=(CHI-YMIN)*VSCALE + 1 SMT 
1678 Jee): LT. 1) J=1 SMT 
1679 IF( J. GT. 50)J=50 SMT 
1680 IF (IKsEG. 0) GOn Ome o SMT 
1681 CALL NUMPRT( IX,J, IK, PLOT) SMT 
1682 36 CONTINUE SMT @ 
Loao GC SMT @ 
1684 C FILL BARS ABOVE AND BELOW THE BOX SMT@ 
1585 56 DO 32 J=tiA ee SMT @ 
1686 IF(J.GT.50 .OR. J.LT.1) GO Teme2 SMT 
1687 PLOT( IX,J)=CBAR SMT 
1688 32 CONTINUE SMT 
1689 DO 33 J=IQ3,IHX SMT 
1690 IF(J.GT.50 .OR. J.LTo YT) GOMBos ss SMT 
1691 PLOT(IX,J)=CBAR SMT 
1692 33 CONTINUE SMT 
1693 IFC ILX. LE.50 .AND. ILX.GE.1) PLOTCIX,ILX)=CROSS SMT 
1694 IFC IHX. LE.50 .AND. IHX.GE.1) PLOTCIX,IHX)=CROSS SMG 
1695 IF(IQ1. LE.50 .AND. IQ1.GE.1) PLOTCIX,1Q1)=DASH SMT 
1696 IFC IQ2. LE.50 .AND. IQ2.GE.1) PLOTCIXA,1QZ)=CROSS SMT 
1697 IF(CIQ3. LE.50 .AND. IQ3.GE.1) PLOTCIX,1Q3)=DASH SMT 
1698 SUM=0. SME 
1699 DO 40 I=1,NY SMT 
1700 SUM=SUM+Y(TI) SME 
ILIAC 40 CONTINUE SMT 
1702 SUM=SUM/FLOATCNY) SMT 
IOS: MEAN=( SUM- YMIN)*VSCALE+1 SMT 
1704 IF(MEAN. LE.50 . AND. MEAN. GE. 1) PLOTCIX,MEAN)=CSTR SMT 
1705 99 CONTINUE SMT 
1706 RETURN SMT 
707 END SMT 
1708 Cxtdedededsdededesededededddededededededededededede ceded eke he Feke RRR RRP RRELETRTERERIT ERI SMT 
1709 SUBROUTINE RREG(XS,YS,BS,M,N,1IX1, 1X2) SMG 
1710 C ROBUST REGRESSION ON Y=X*B SMI 
1711 CG X=M BY N MATRIX CONTAINED IN AN ARRAY OF DIM(IX1,1X2) SMT 
7 ZG =M-VECTOR CONTAINED IN AN ARRAY OF DIM(CIX1) SMT 
1713 C B=N-VECTOR CONTAINED IN AN ARRAY OF DIM(CI1IX2) SMT 
1714 C XX,XXI=WORK ARRAYS OF DIM(IX2,1X2) SMT 
1715 C WY=WORK ARRAY OF DIMC(CIX1) SMT 
1716 C WX=WORK MATRIX OF DIM(1IX1,1X2) SMT 
1717 C XY=WORK ARRAY OF DIM( 1X2) SMT 
M7. oye @ OR LARGER SMT 


WK=WORK ARRAY OF DIM(N**2 + 3°*N) 
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1719 C wire +4+4+4+4+ +4+4+++ MODIFICATION USING CHOLESKY +++++ SMT 
ieee C SMT 
Ly A REAL*4 YS(8),XS(8,7),BS(7) SMT 
1722 REAL*8 Y(8),X(8,7),BC7),XTX(7,7),XTY(7) SMT 
1723 C *we*ee* CONVERT REAL*4 TO REAL*®8 wxttedkddedkkikkik kiki SMT 
ye DO 10 I=1,1X1 SMT 
ie Y(1)=DBLE( YS(I)) SMT 
1726 Bees J—1) 1X2 SMT 
27 X(1,J)=DBLE(XS(1I,J)) SMT 
limes 5 CONTINUE SMT 
1729 10 CONTINUE SMT 
igs0 C SMT 
1731 CALL MATSQ (X,XTX,M,N) SMT 
32 CALL MATMUL (X,Y,XTY,M,N) SMT 
1733 CALL CHOLES (XTX,XTY,B,N) SMT 
1734 C SMT 
1735 C *x**e** CONVERT REAL*8 TO RE AL*G ikke KARRI SMT 
1736 C DO 20 I=1,1X1 SMT 
is? C YSCI)=SNGL(Y(1)) SMT 
1738 Domo, 1x2 SMT 
1739 BS(J)=SNGL(B(J)) SMT 
1740 C XS(1,J)=SNGL(X(1,J)) SMT 
ie 8615 CONTINUE SMT 
1742 20 CONTINUE SMT 
1743 C SMT 
1744 RETURN SMT 
1745 END SMT 
ley, 4 é Crete rete Hie ve Wve deve He ee Ie I Fee Fee He ese Fe Fe Ne FE He TIEN FN FEN FET TET TER TC TET TTI ICT TET TTT TCT ICT FEN FEIN S MT 
1747 SUBROUTINE NUMPRT(IX,J,1K,PLOT) SMT 
1748 C NUMPRT PLOTS THE NUMBER IK IN THE 2-D ARRAY PLOT CENTERED ON SMT 
1749 C THE PLOT(IX,J) POSITION. SMT 
1750 C IX = COLUMN OF MATRIX PLOT WHERE NUMBER IS TO BE PRINTED. SMT 
igs C J = ROW OF MATRIX WHERE MUMBER IS TO BE PRINTED. SMT 
is 2 C IK = NUMBER TO BE PRINTED SMT 
iS C PLOT = 2-D ARRAY WHERE NUMBER IS TO BE PLOTED. SMT 
54. C SMT 
1755 CHARACTER™ 1 ms tbAEY PLOT( 122, 2, SMT 
1756 Mie NOveOme 1, 2°. 3°, 4, 5 5'6 , 7','8','9'/ SMT 
157 LF Gee LT 10) GO TO 1 SMT 
1758 TPC Pe L100) 8GO TO*2 SMT 
1759 [PGi t.1006) GO TO.3 SMT 
1760 IF (IK. LT. 10000) GO TO 4 SMT 
1761 110000 = IK/10000 SMT 
1762 PLOT( 1X-2,J) = NUM(110000+1) SMT 
1763 11000 = (IK-110000*10000)/1000 SMT 
1764 PLOT(IX-1,J) = NUM(11000+1) SMT 
1765 1100 = (IK-110000*10000-1I1000*1000)/100 SMT 
1766 PLOT(IX,J) = NUM(1I100+1) SMT 
1767 110 = (IK-110000*10000-11000*1000-1100*100)/10 SMT 
1768 PLOT(1X+1,J) = NUM(1I10+1) SMT 
1769 I1 = (IK-110000*10000-11000*1000-1100*100-110*10) SMT 
1770 PLOT(IX+2,J) = NUM(1I1+1) SMT 
lige GO mo) 22 SNT 
7 72 4 11000 = IK/1000 SMT 
1773 PLOT(IX-2,J) = NUM(11000+1) SMT 
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1774 T100 = (IK-11000*1000) /100 SMT 
i775 PLOT( IX-1,J) = NUM(1I100+1) SMT 
1776 T10 = (IK-11000*1000-1100*100) /10 SMT 
Le PLOT(IX,J) = NUM(1I10+1) SMT 
1778 T1 = (IK-1I1000*1000-1100*100-110*10) SMT 
1779 PLOT( 1X41) = NUM Gi ey) SMT 
7 SO COMO 22 SMT 
1781 3 T1H0C >= ey Ago SMT 
1782 PLOT( IX-1,J) = NUM( 110041) SMT 
Ese) T10 = (IK-1100*100)/10 SMT 
1784 PLOT(CIX,J) = NUM(1I10+1) SMT 
7G) I1 = (IK-1100*100-110*10) SMT 
1786 PLOT( IX+1,J) = NUM(I1+1) SMT 
1787 GOFTOe 22 SMT 
1788 2 110 = IK/10 SMT 
1789 PLOT(IX-1,J) = NUM(1I10+1) SMT 
1790 Tl = (I1KSTTO. Te) SMT 
oe PLOT(IX,J) = NUM(1I1+1) SMT 
EF) 73 GORIO 22 SMT 
1793 1 PLOT(IX,J) = NUM(IK+1) SMT 
1794 22 RETURN SMT 
eS: END SMT 
1796 Crrereredededevesere dese He devese He WMH MRR EREEKRER EER EREREERRERERERERE SMT 
1797 C SMT 
1798 SUBROUTINE SECEST(GENEST,IX,N,M,NEK,Y,KP) SMT 
a7 REAL Y(1) SMT 
1800 real*¥8 IX SMT 
1801 C COMPUTE ESTIMATES "EST” FOR SECTION LENGTH NEK (LIMITED TO 1000) SMT 
1802 NBK=N/NEK OMT 
1803 KP=0 OMT 
1804 DORLO Siaalr tl OMT 
1805 HORS eat Nek SMT 
1806 KP=KP+1 SMT 
1807 CALL GENEST(1IX,NEK,Y(KP)) SMT 
1808 15. CONTINUE SMT 
1809 10 CONTINUE SMT 
1810 RETURN SMT 
ie) iL aL END OMT 
L812 Crrwerevevederededededede dee deve se ae Fete He Fe NH Hee ePIC TEI Te NTE I TEN NCTE I TET FETC TEKIN TENE BERIT KIN SMT 
1813 C OMT 
1814 SUBROUTINE MAXMINCY,N, YMAX, YMIN) SMT 
1815 C RETURNS MAX AND MIN VALUES OF VECTOR Y OF LENGTH N OMT 
1816 REAL Y(N) SMT 
1817 YMAX=Y(1) SMT 
1818 YMIN=Y( 1) SMT 
1819 DO 605 J=1,N SMT 
1820 IF(Y(J). LT. YMIN) YMIN=Y( J) SMT 
1821 IF(Y(J).GT. YMAX) YMAX=Y(J) SMT 
1822 605 CONTINUE OMT 
23 RETURN SMT 
1824 END OMT 


L825 Crewe keds kak dedede sede Heke eae dese se ve seve Nese Ve se Fe se se He Fe se ee WIE Me He Fe Ie IN WINE Fee Fe eM WT FEVE TE T NF Ie Te Ne Fe HM He IES MT 


1826 C 
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SMT 





BUNGEION PCTLCY,N,P,IC) SMT 

C GOMPUTES P PERCENTILE OF N VALUES IN Y. Sh 
C WHEN IC=1 DATA IS ALREADY SORTED eyil 
REAL YCN) SMT 
R=P*FLOAT(N+1) SMT 

IFCIC .NE. 1) CALL SORTCY,N) OMT 
I=MAXOCINTCR) , 1) SMT 
I=MINOCI,N) SMT 
J=MINOCINT(R+1.) , N) SMT 
R=R-INTC(R) SMT 
PCTL=Y(I)+R*C(YCJ)-YCI)) SMT 
RETURN SMT 

END SMT 

Cw reste rededede deve deve Hex deve de ded Fese te i 46 Fe Fe Fe Fe Hee Te Fe Fe Fe Fee He Fe Fe Fe He Fee Fev Fe RRR KER I KKK RKEKREE SMT 
SUBROUTINE DELETOCY,KP,YMAX, YMIN) SMT 

C SUBROUTINE SCALES THE GRAPH TO UPPER (LOWER) QUARTILE + (-) SMT 
C 1.5 TIMES INTERQUARTILE DISTANCE OR TO FIRST POINT WITHIN rely 
C iHEsr LIMETS IF NO POINTS EAIST OUISIDE. SMT 
REAL Y(CKP) SMT 

eo Perea wes 255.0 ) SMT 

P75 =PCTL(Y,KP,.75,1) SMT 

Bee —e Omit Y KE,,50,1)} Sug 
WatIN=2. 5*P25-1, 5°P75 SMT 
YMAK=2. 5*P75-1. 5*P25 SMT 
IF(Y(1).GT. YMIN) YMIN=Y(1) SMT 
IFCYCKP). LT. YMAX) YMAX=YCKP) SMT 
RETURN Sir 

END SMT 
Cretevedederedededs severe ve eve ve dede Tere ve Weve He Fe Fe Vee He Te Te Te Fe Me TeN Ne He He Me Fe VeF VEIN Tere He Fe He Fe Fe He Hee Fe He Fee He eH He Fe He HH SMT 
& CHOLESKI'S METHODE 9 wvededsdededodedsdededeokdededke deve dedeseiedk ave SMT 
SUBROUTINE CHOLES (XTX ,XTY,BHAT,N) SMT 
REAL*8 L(7,7),SUM,LT(7,7),XTX(7,7),XTY(7),BHAT(7),WY(7). SMT 
REAL*4 B(7) SMT 
INTEGER P SMT 

Sir 

CG wikietkke TNT J], weaededededvaededcdedededededk devede SMT 
DO 100 I=1,N SMT 

BHAT( I )=0. ODO SMT 

DO 50 J=1,N SMT 
L(I,J)=0. ODO SMT 

LTC 1I,J)=0. ODO SMT 
CONTINUE SMT 

100 CONTINUE SMT 
CG week ATGORITHM DECOMPOSITION = *%%%ed%eAe7 Syl 
L(1,1)=DSQRT( XTX(1,1)) SMT 

DO 500 K=2,N SMT 

=K-1 OMT 

DO 200 J=1,KK SMT 

JJ=J-1 SMT 

SUM=0. ODO Son 

IF Gi.86. y"CO tO 150 SMT 

DO 140 P=1,JJ SMT 
SUM=SUM+( L(K,P)*LCJ,P)) SMT 

CONTINUE SMT 
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1881 150 CONTINUE SMT 
1882 L(K,J)=(XTX(K, J) -SUM)/L(J, J) SMT 
1883 200 CONTINUE SMT 
1884 SUM=0. ODO SMT 
1885 DO 300 P=1,KK SMT 
1886 SUM=SUM+( L(K, P)**2) SMT 
1887 300 CONTINUE SMT 
1888 L(K,K)= DSQRT (XTX(K,K)-SUM) SMT 
1889 500 CONTINUE SMT 
1890 C BUILD L-TRANSPOSE IN LT Sittrticdicivdiiiitiicick | SMT 
1891 DO 540 I=1, N SMT 
1892 0) S50) JE es SMT 
1893 LT(I,J)=L(J,1) SMT 
1894 530 CONTINUE SMT 
1895 540 CONTINUE SMT 
1896 C SMT 
1897 C wee ATL GORI THM ~ PART 1 A. 2 Bitreiierik SMT 
1898 C wk Wee Xe SMT 
1899 WY(1)=XTY(1)/L(1,1) SMT 
1900 DO 700 I=2,N SMT 
1901 [I=I-1 SMT 
1902 SUM=0. ODO SMT 
1903 DO 600 J=1,II SMT 
1904 SUM=SUM+(WY(J)*LCI,J)) SMT 
1905 600 CONTINUE SMT 
1906 WY(I)=C(XTY(1)-SUM)/L(I,I) SMT 
1907. 700 CONTINUE SMT 
1908 C SMT 
1909 C w** LT * BHAT = WY Teaeseskestksesksesesksesk kk tes eae SMT 
1910 BHAT(N)=WY(N)/LT(N,N) SMT 
1911 BOes00 1l—25N SMT 
1912 I=N-II+1 SMT 
1913 SUM=0. ODO SMT 
1914 DO 750 J=I,N SMT 
1915 SUM=SUM+( BHAT(J)*LT(I,J)) SMT 
1916 750 CONTINUE SMT 
1917 BHAT( I )=(WY(1)-SUM)/LT(I,I) SMT 
1918 800 CONTINUE SMT 
1919 C TITTPRLTETT TTI aa ee SMT 
1920 C SMT 
1921 DO 950 I=1,4 SMT 
1922 B( I )=SNGL( BHAT(I)) SMT 
1923 C WRITE (6,900)BHAT(I),BC(I) SMT 
1924 950 CONTINUE SMT 
1925 900 FORMAT (1X, ‘BHAT ',F30.15,‘BSNGL ' ,F30. 15) SMT 
1926 C SMT 
1927 RETURN SMT 
1928 END SMT 
1929 C SMT 
1930 C wee MATRIX MULTIPLICATION XT * X = XRES  Witdedrik SMT 
18s, 16 SMT | 
1932 SUBROUTINE MATSQ ( X, XRES, M, N ) SMT 
1933 REAL*8 X(8,7),XT(7,8) ,XRES(7,7),SUM ‘SMT 
1934 C SMT | 
| 


1935 Cc *** BUILD X-TRANSPOSE IN LT *%ewvedverededer SMT 
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—e a ET eS = =, 


FIC 


DO 20 I[=1,M 
DO 10 J=1,N 
SP. Ljy=X(1.J) 
10 CONTINUE 
20 CONTINUE 
C 
C wiet XT * X = XRES dese vev 
C 
DO 50 I=1,N 
DO 40 J=1,N 
SUM=0. ODO 
DO 30 K=1,M 
SUM=SUM+( XTC I,K)*X(CK,J)) 
30 CONT INUE 
pees (1,J) = SUM 
40 CONTINUE 
50 CONTINUE 
RETURN 
END 
C 
C where MATRIX MULTIPLICATION XT * Y = XTY = ¥®tkwieddex 
C 
SUBROUTINE MATMUL ( X,Y,XTY,M,N ) 
RBAL*8 Y(8),XI(7,8),XC8,7) ,XBYC7),SUM 
C TITIT TEST xcvvvedecedcdtdededeatvavatdesedcdedvatatdeseaeaevedeveacac sede seve ae deve te se ae ae ae 
C 
C Wri 6, 102) 
1O2 FORMAT (1X, Y §,/) 
C WRITE (6,100)(YCI),1I=1,8) 
100 FORMAT (1X,6F20. 10) 
C WRITE(6, 101) 
HOMebORMATD (1X. x ' ,/) 
DO 150 I=1,8 
C WRITE (6,100)(X(I,J) ,J=1,7) 
150 CONTINUE 
C 
TELLS LIL TL SIS LLL TOG ELST YG Ca) at Ua Le at a a at ad ad a it it i at 
C 
C 
C whee BULLD XT  rervdededer 
DO 20 I=1,M 
DO 10 J=1,N 
XT(J,1)=X(I,J) 
10 CONTINUE 
20 CONTINUE 
C 
C viet XT *&% Y = XTY evevedeveded 
C 
DO 50 I=1,N 
SUM=0. ODO 
DO 40 J=1,M 
SUM=SUM+( XTC 1I,J)*Y(J)) 
40 CONTINUE 
XTY(C I )=SUM 
50 CONTINUE 
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bea 
E92 


oS 
1994 
eee), 
1996 
7 
£995 
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20 10 
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Z0a3 
2014 
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OC tedvdededededede ded dese dese ve te ve vege ae Teak Fea Wee Ve FEW HEME HEME He Fe Fe Me Me Fee Mee WM WH TEM HEM EH FETE He FEN He HEH Hee HK Fee He 


C 


100 
200 


200 


RETURN 
END 


SUBROUTINE SORT (Y,N) 
INPLACE SORT USING SHELL ALGORITHM ‘triacs 
REAL Y(N),TEMP 
INTEGER GAP 
LOGICAL EXCH 


GAP=(N/2) 
IF (.NOT. (GAP. NE.0)) GO TO 500 
CONTINUE 
EXCH=. TRUE. 
K=N-GAP 
DO 200 I=1,K 
KK=I+GAP 
IF(. NOT. CYC 1). GT. YCKK))) GO TO 100 
TEMP=Y( 1) 
YC I)=YCKK) 
YC KK)=TEMP 
EXCH=. FALSE. 
COMTINUE 
CONTINUE 
IF (.NOT. CEXCH)) GO TO 10 
GAP=(GAP/2) 
GO TO 5 
CONTINUE 
RETURN 
END 
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